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Sil-la. Trattino e a capo. 
L'unico prodotto per Macintosh che consente 


una presentazione dei testi davvero 
professionale, secondo le regole italiane di sillabazione. 

Da usare con MicrosoftWord, PageMaker, ecc. 



Sì, desidero acquistare Sil-la. Scelgo la 
seguente formula di pagamento: 


Nome e cognome 


[Accludo assegno non trasferibile di lire 381.500 
'— * 1 (Iva e spese di spedizione comprese), 
intestato a Editronica srl. 


Indirizzo.Cap. | [Accludo ricevuta di versamento su conto 

'—‘corrente postale n. 19740208 intestato a 
Editronica srl, di lire 381.500 (Iva e spese di 

Città..Prov. spedizione comprese). 

I_I Desidero fattura 

Ritagliare e spedire in busta chiusa a: Editronica srl, Corso Monforte 39, 20122 Milano. 


Sil-la è una realizzazione Computime S.r.l. Roma - Distribuzione in esclusiva: Editronica S.r.l. Milano 




















sommario 
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P™ Chitarra. Il problema del neo chitarrista è quello di 
procurarsi un buon maestro di accordi. Eccone uno 
-■ che usa una grafica impeccabile e, soprattutto, per- 
mette di verificare la correttezza di quanto appreso. 

1 

Omnis 3. Lo chiamano software povero, ma le sue 
performance sono di prim'ordine e la grande potenza e- 
C J lavorativa fa gridare al miracolo. Proviamo Omnis 3, e 
diamo un'occhiata ad altri pacchetti poveri, ma buoni. 

2 

IC 

V Leasing. Si sa che conviene, ma sapere quanto non 
1 è facile, perché il meccanismo della rateazione compli- 
I ca alquanto il calcolo degli interessi reali. Con l’aiuto di 
* Multiplan e della matematica finanziaria, però... 

2 

\ Mac Plus. Molti ormai acquistano il Plus o fanno l’up- 

f grade della vecchia versione. E i programmi? Bisogna 

1 11 fare attenzione ai non compatibili: ecco un'ottima gui- 
da. Anche perché c'è un altro nuovo Mac che... 

Unidisk. L'archiviazione dati con Unidisk e dischetti 
da 3.5 pollici consente una grande potenza ed elimina 
«1 11 il problema irrisolto dei dischi da 5 pollici e 1/4: la fragili- 
tà. Vediamolo al lavoro per saggiarne la convenienza. 

4 

Reminder. Un programma versatile per la perfetta ge- 
stione di mille incombenze domestiche: dalla program- 
" r inazione dei lavori dell'orto all'amministrazione del fri- 
zer... Ma non solo: è anche un potente prestatutto. 


51 

Assicurazioni. E’ estate e il computer viene spes¬ 
so trasferito per il weekend, con il rischio di tampona¬ 
menti e incidenti svariati. Meglio mettergli un casco: u- 
na polizza su misura e molto generosa. 


1™ ^ Programmi. Da Applesoft a MS Basic? Significa po- 
t^\ J ter trasferire non solo testi, ma anche interi listati. Ve- 
.1 * j diamo nei dettagli come si può fare, con l'aiuto di qual- 
che piccola routine esemplificativa. 

1 

6 

k P"" Macnews. In questo numero aprono in bellezza: un 
k programma, Venus, su misura per le profumerie. Gli 

1 « 1 ingegneri troveranno invece MacSpace, un versatile 

strumento per il disegno. E MacGolf, Blues, CVA... 

1 

Grafica. Tutte immagini grafiche possono essere 

i trasformate in tavole di figure a blocco, ma c'è qualche 
j / difficoltà per la gestione delle coordinate. Con l’aiuto di 
m questo programma, però, non è più un problema. 

■™f Etichette. Quale stampante usate non conta: Post- 

/ J master, debitamente modificato, lavora con tutte, e 

/ - j realizza etichette personalizzate. Inoltre gestisce un 
" indirizzario di cento nomi, lo ordina, lo stampa. 

co 

| MacBanker. Per il computer più innovativo, un pro- 
1 gramma veramente nuovo che oltre a gestire ottima¬ 
le mente il vostro conto in banca è predisposto per stam- 
1 pare assegni su modulo continuo. 

Il 

0 

. Mitogame. Nella notte dei tempi Crono fu scagliato 

1 nel Tartaro dal figlio Zeus. Ora è risorto e gli muove 

f f 1 guerra con l’aiuto delle divinità del male: ciclopi e gigan- 
ti, chimere e furie, muniti di alabarde mortali. 



Crono contro Zeus, pag. 106 



Mac Banker, pag. 84 


Le rubriche: 


in 


Appliscuola. Trigonometria a portata di mano: le 
funzioni capitali diventano un gioco, gli assi cartesiani 
sono tarati in modo funzionale, è possibile confrontare 
i grafici, e una routine amichevole controlla gli errori. 
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124 Applipratica 

125 Disk Service 
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Giocato! 


Una sfida più 
affascinante. Il più 
antico gioco di 
strategia reso 
ancor più 
stimolante. Con la 
possibilità di 
registrare la partita 
e rigiocarla in 
qualsiasi 
momento. Di 
tornare indietro e 
muovere in modo 
diverso. Di 
ricevere 
suggerimenti tattici 


é 


Scacchiera Lineilo Uideo 


■ Controllo Suono 


dal computer. Di 
giocare in due, da 
soli, o anche di far 
giocare 

Macintosh contro 
se stesso. Ma la 
Dama francese non 
è solo questo: è 
più creativa, 
piccante, 
coinvolgente, 
appassionante. 
Allora, se sei 
stanco della solita 
dama, prova con la 
dama francese... 


Bianchi a Macintosh 


ERTO 


Ci ripenso 


Partita in corsi 


✓Bianchi al giocatore 
Strategia dei Bianchi 
✓Esperta 
Offensiua 
Difensiva 


INIZIO 


SEGUENTE 


ANNULLO 


✓Neri a Macintosh 


Elenco mosse 


Neri al giocatore 
Strategia dei Neri: 

Esperta 

✓Offensiua 

Difensiua 




IIIIIIIIIIDDDODOODDDDDODOODODODOOODOUOOD 


Prova 

con la dama francese 


Ritagliare e spedire in busta chiusa a: 
Editronica Srl 

Corso Monforte 39, 20122 Milano. 


Cognome e nome 

Indirizzo . 

Cap . Città 


.Prov.. 


Sì, desidero acquistare La dama francese. 
Scelgo la seguente formula di pagamento: 


Q Accludo assegno non trasferibile di lire 140.000 
(Iva e spese di spedizione comprese), intestato 
a Editronica Srl. 


o 


o 


I 


Accludo ricevuta di versamento su conto 
corrente postale n. 19740208 intestato 
a Editronica Srl, di lire 140.000 (Iva e spese 
di spedizione comprese. 

Desidero fattura. Il mio Codice fiscale/Partita Iva è: 


E . ^ . *L... 





































































































































































applicando 


DIREZIONE GENERALE E AMMINISTRAZIONE 


i<$flft[r®ifi)0©§i srl 

20122 Milano - Corso Monforte 39 
Telefono (02) 702429 
Telex 350132 MACORM I 


Direttore responsabile 

Stefano Benvenuti 

Coordinamento editoriale 

Francesca Marzotto 

Responsabile programmi 

Giorgio Caironi 


Impaginazione 

elettronica 

Adelio Barcella 

Collaboratori 

Marco Gussoni 
Mario Magnani 
Guido Ricciardi 
Ivonne Rossi 
Alfonso Scoppetta 

Pubbliche relazioni 

Mauro Gandini 


Tutti i dintti di riproduzione e traduzio¬ 
ne di testi, articoli, progetti, illustra¬ 
zioni, disegni, listati di programmi, 
fotografie eco. sono riservati a termi¬ 
ni di legge. I programmi pubblicati su 
Applicando possono essere utilizza¬ 
ti per scopi privati, scientifici e dilet¬ 
tantistici, ma ne sono vietati sfrutta¬ 
menti e utilizzazioni commerciali. I 
manoscritti, i disegni e le foto, anche 
se non pubblicati, non si restitui¬ 
scono. 

Servizio abbonamenti: Editronica 
srl, Corso Monforte 39, Milano - Con¬ 
to Corrente Postale n. 19740208 - Li¬ 
na copia L. 6.000. Arretrati L. 7.000. 
Abbonamento 10 numeri (senza do¬ 
no) L. 50.000 (estero L. 70.000). Ab¬ 
bonamento 10 numeri più le Pagine 
del Software e dell’Hardware Apple 
L. 60.000 (estero L. 80.000) Periodi¬ 
co mensile - Stampa: Poligrafico Pie¬ 
montese srl, Casale Monferrato (AL) - 
Distribuzione esclusiva per l'Italia 
A.& G. Marco spa, Via Fortezza 27, 
Milano, Tel. 02/25261, telex 350320 - 
Fotolito: Mediolanum Color Separa- 
tion, Via Marcona 3, Milano. © Co¬ 
pyright 1986 by Editronica srl - Regi¬ 
strazione Tribunale di Milano n. 24 
del 15.1.1983 - Pubbl. inf. al 70% 



Hardware: prezzi calanti. Software: prezzi crescenti. 
Da maggio il Macintosh 512/800K (nuova versione 
con 512K di Ram e 128 di Rom, e drive incorporato 
da 800K) costa infatti 4.390.350 lire più Iva. Ma ba¬ 
sta poi comprarsi quattro programmi come Excell, Pa¬ 
geMaker, Clara e Professional Composer, tanto per 
non far nomi, per scoprire che di software si è speso 
altrettanto, se non di più. Per carità, ben vengano pro¬ 
grammi di altissima qualità e di altissimo valore intrin¬ 
seco come quelli citati, e guai a rinunciarci. Ma non 
c'è modo di procurarsi del buon software anche a 
prezzi più ragionevoli, per il Macintosh come per 
l'Apple II? Ecco la domanda alla quale risponde la sto¬ 
ria di copertina di questo numero di Applicando, che 
non intende certo far la guerra ai produttori di softwa¬ 
re, ma che anzi vuole aiutarli a vendere di più, in mo¬ 
do da poter ridurre prezzi che davvero talvolta sono 
un po' astronomici. E questo naturalmente nell'inte¬ 
resse dell'utente finale che, guardacaso, è il lettore di 
Applicando, ma anche nell'interesse delle stesse so¬ 
ftware house: prezzi più accessibili significano meno 
copie abusive e più pezzi venduti; il guadagno può es¬ 
sere di gran lunga maggiore. 

Sempre in tema di software di ottima qualità ma a 
basso costo, la casa editrice di Applicando è lieta di 
annunciare la nascita di AppleDisk, un nuovo mensile 
con dischetto. AppleDisk è già in edicola e può offrire 
cinque buoni programmi al prezzo di copertina di 15 
mila lire grazie proprio alla sua diffusione: 25 mila 
copie. ' 


Stefano Benvenuti 

P.S. Una buona notizia per gli utenti di My Office: è 
in preparazione un dischetto di upgrade che consenti¬ 
rà loro di usare questo comodissimo programma e i fi¬ 
le già creati anche su Macintosh Plus o sul Mac 512 
con i drive da 800K. Ne parleremo più diffusamente 
sul prossimo numero. 



UNIONE STAMPA 
PERIODICA ITALIANA 
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Giardini e piante 
con ii mouse 

Sul tavolo da disegno 
il mouse fa spesso fatica 
a farsi avanti, tra i com¬ 
passi e le matite di ben 
più solida tradizione, e al 
Mac si assegna di solito, 
piuttosto, il ruolo di cal¬ 
colatrice intelligente per 
computi e calcoli. 

Maurizio Rozzi, 40 an¬ 
ni, famoso per aver realiz¬ 
zato MilanoPiù e il Cen- 
troPiù di Saronno e per 
aver collaborato alla pro¬ 
gettazione di Milano 2 e 
Milano 3, appartiene in¬ 
vece all'esigua schiera de¬ 
gli innovatori, e ha per¬ 
messo al mouse di mo¬ 
strare di cosa è capace, in 
un contesto progettuale 
di grande respiro e di or¬ 
mai decennale fatica: Mi¬ 


lano 3. "E' un progetto 
monumentale, al quale da 
molti anni lavoriamo in 
tanti; sarebbe quindi sba¬ 
gliato sopravvalutare il 
ruolo del computer, che 
in realtà è entrato in sce¬ 
na quando i lavori erano 
già molto avanzati, e ha 
giocato una parte margi¬ 
nalissima, anche se mol¬ 
to caratteristica ed entu¬ 
siasmante: basta guardare 
questo disegno". 

Il problema da risolve¬ 
re con il Mac era legato 
alla presentazione grafica 
dell'ambientazione ester¬ 
na delle ville di Milano 
3. "Come per tutte le co¬ 
se l'inizio non è stato fa¬ 
cile", racconta Maurizio 
Rozzi, "perché le biblio¬ 
teche di disegni attual¬ 
mente in commercio non 
riescono a soddisfare le 


nostre esigenze. Così la 
biblioteca ce la siamo 
creata noi, con l'ausilio 
di MacPaint, MacDraw e 
MacDraft. Ma soprattut¬ 
to con la costanza e l’abi¬ 
lità della mia assistente 
Antonella Grassi, che in 
due anni, senza saper nul¬ 
la né di architettura né di 
Mac, ha raggiunto un'e¬ 
sperienza invidiabile". 

Un lavoro notevole, 
frutto di esperimenti dura¬ 
ti oltre due anni. Frutto 
anche di precedenti espe¬ 
rienze? "Certamente an¬ 
che primaabbiamo realiz¬ 
zato dei lavori con il Ma¬ 
cintosh, ma la parte, mol¬ 
to difficile e delicata, del 
landscaping ci richiedeva 
comunque un notevole 
intervento manuale e ci 
faceva perdere a volte più 
di un mese per avere il la¬ 


voro finito. Adesso, in ve 
ce, giardini e piante soni 
tutti su dischetto: la par 
te grafica su un discc 
Mac Paint e le caratteri 
stiche e i prezzi su un di¬ 
sco Multiplan, dove una 
maschera da noi sviluppa¬ 
ta provvede a realizzare i 
preventivi.” 

Per la stampa viene u- 
sata una Image Writer, 
preferita alla nuova stam¬ 
pante laser: "Abbiamo ef¬ 
fettuato delle prove con 
la laser, ma certe sfuma¬ 
ture, soprattutto quelle 
delle piante e dei tetti, 
perdevano l'effetto da noi 
voluto. L'unico grosso 
problema rimane il colo¬ 
re: non abbiamo ancora 
trovato una soluzione suf¬ 
ficientemente professio¬ 
nale per le nostre esi¬ 
genze". 



Nuovo look: 

P.R. col Ile 

La nuova generazione 
di addetti alle pubbliche 
relazioni, tutta votata al¬ 
la professionalità e alla 
creatività, è convinta del 
fatto che ideare una cam¬ 
pagna di P.R. azzeccata 
non è più facile che crear¬ 
ne una pubblicitaria."Il 

Maurizio Rozzi (a sinistra 
insieme alla sua assistente) 
architetto, usa molto 
il Macintosh. Qui sotto, 
un progetto per Milano 3. 





































problema è che un'agen¬ 
zia di pubbliche relazioni 
si trova costretta a cimen¬ 
tarsi frequentemente con 
lavori ripetitivi, che sot¬ 
traggono tempo prezioso 
alla fase creativa", dice 
Patrizia Dragonetti, tiola- 
re dell'omonima agenzia 
milanese, "basti pensare 
a quello che succde ogni 
volta che si deve inviare 
un comunicato stampa. 
Bisogna stendere una 
mailing list dei giornali¬ 
sti interessati, fare batte¬ 
re alla segretaria nomi e 
indirizzi su buste e eti¬ 
chette e personalizzare o- 
gni missiva". E per chi 
basa sull'immagine la 
propria attività è impor¬ 
tante che il tutto sia esen¬ 
te da errori e che le mai¬ 
ling siano costantemente 
aggiornate al rapido tum 
over che impera nel mon¬ 
do della carta stampata. 
"Per me affidare a un per¬ 
sonal computer tutti i la¬ 
vori di segreteria è stato 
naturale", dice Patrizia 
Dragonetti, "perché mio 
marito è da sempre atten¬ 
to all’evoluzione delle te¬ 
cnologie elettroniche. Ed 
è stato proprio su suo 
consiglio che tre anni fa 
ha fatto il suo ingresso 
in agenzia un Apple Ile, 
dotato di un programma 
di word processing". Il 
programma in questione 
è il potente Wordstar, svi¬ 
luppato per i personal 
Ms-Dos ma capace di gi¬ 
rare sugli Apple dotati de¬ 
la scheda Cpm; le stam¬ 
panti impiegate sono 
due, un'Imagewriter II e 
una Jukki a margherita. 

La prima si rende utile 
per tutti i lavori che con¬ 
sentono di sacrificare la 
qualità di stampa in favo¬ 
re della velocità di esecu¬ 
zione, mentre la seconda 
scende in campo quando 
si tratta di redarre docu¬ 
menti destinati all'ester¬ 
no. Da qualche tempo il 
Ile è stato dotato di un U- 
nidisk per potere impiega¬ 


re dischetti da tre pollici 
e mezzo con 800k di me¬ 
moria. "E dotando la 
stampante di un caricato¬ 
re a fogli singoli siamo 
riuscite a preparare senza 
troppi problemi i book 
destinati a ricapitolare ai 
nostri clienti tutti gli arti¬ 
coli che li riguardano ap¬ 
parsi su quotidiani e pe¬ 
riodici", dice Grazia Lot¬ 
ti, assistente di Patrizia, 
"L'Apple, infatti, si inca¬ 
rica di stampare sulle fo¬ 
tocopie di ciascun artico¬ 
lo la data di pubblicazio¬ 
ne, la testata e il nome 
dell'autore del servizio". 

Il grande futuro 
di Willy Gates 

Appena trentenne, Wil¬ 
liam H. Gates, fondatore 
della Microsoft insieme a 
Paul Alien, è una figura 
di spicco nel mercato 
mondiale dell’informatica 
applicata. 

In un recente soggior¬ 
no milanese ha fatto il 
punto della situazione del 
mercato dei microcompu¬ 
ter e della sua società e 
Applicando ha raccolto 
alcuni dei temi affrontati 
dal giovanissimo capita¬ 
no d’industria. "Attual¬ 
mente i potenziali utenti 
di personal computer han¬ 
no una scelta limitata a 
due sistemi: le macchine 
che impiegano l'Ms-Dos 
e gli Apple", sostiene Ga¬ 
tes, "Si tratta di un fatto 
in apparenza sorprenden¬ 
te, se si considera che fi¬ 
no a qualche tempo fa 
quasi tutte le società pro¬ 
duttrici di hardware spin¬ 
gevano architetture pro¬ 
prie. In realtà è stato il 
mercato del software a o- 
rientare le scelte strategi¬ 
che dei produttori e il 
successo ottenuto da que¬ 
ste due architetture è deri¬ 
vato dalla disponibilità di 
programmi creati da so¬ 
ftware house indipenden¬ 
ti. Nei prossimi anni, 
poi, l’evoluzione tecnolo¬ 



Qui sopra, Willy Gates, fondatore della Microsoft. 


gica si muoverà verso mi¬ 
croprocessori più velo¬ 
ci", continua Gates, 
"mentre i programmi di 
maggiore successo com¬ 
merciale saranno quelli 
dotati di interfaccia grafi¬ 
ca con l'utente. Aumente¬ 
rà anche il ricorso a stam¬ 
panti laser e le reti locali 
saranno uno strumento di 
lavoro comune negli uffi¬ 
ci per fare in modo che 
più utenti possano condi¬ 
videre dati, software e pe¬ 
riferiche. A una grande 
diffusione sono destinate 
anche le Cd Rom, compa¬ 


ct disc read only memo- 
ries, cioè dei lettori di 
compact disc con i relati¬ 
vi dischetti in grado di 
memorizzare suoni e im¬ 
magini oltre ai dati, per 
poi consentire di leggere 
il tutto con un personal 
computer", conclude il 
manager statunitense. "E 
alla Microsoft siamo 
pronti a sfruttare queste 
novità tecnologiche per 
le nostre applicazioni: in 
futuro saranno infatti di¬ 
sponibili anche Cd che 
potranno essere scritti e 
letti dall'utente". 
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Mac// 

Un emulatore software di 
Apple//+ e Apple//e per 
Macintosh 512: basta 
inserire il dischetto Mac// in 
un Macintosh, ed eccolo 
trasformato in un Apple//. 
Con il Dos e il ProDos. 



mà 


Mac// 
è un programma JRD 
edito in Italia 
da Editronica Srl. 

Acquistalo subito. 


y* 




Per ricevere Mac// basta compilare 
e spedire subito questo 
tagliando a Editronica Srl, ^ 

Corso Monforte 39, 20122 Milano. ^ ^ 

if/W # .. 
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Stampanti 
in Coppa Davis 

Dopo essersi conquista¬ 
ta una fama mondiale gra¬ 
zie alla sponsorizzazione 
della finale della Coppa 
Davis di tennis tra Ger¬ 
mania Occidentale e Sve¬ 
zia, la Nec Corporation, 
uno dei giganti mondiali 
delfelettronica, si è inse¬ 
rita anche sul mercato ita¬ 
liano. L'azienda nipponi¬ 
ca (i suoi prodotti sono 
distribuiti in esclusiva 
dalla Digitronica) ha scel¬ 
to per il suo esordio una 
completa linea di stam¬ 
panti. Si parte dalla linea 
Pinwriter, composta da 
tre modelli (siglati ri¬ 
spettivamente PI, P2 e 
P3), tutti a matrice di 
aghi. I primi due apparec¬ 
chi utilizzano testine a 
18 aghi, che consentono 
unamaggiorechiarezzari- 
spetto a quelle tradiziona¬ 
li che di aghi ne hanno 
soltanto nove. I modelli 
si differenziano per il car¬ 
rello (a 80 colonne per la 
P2 e a 136 per la P3), 
mentre entrambe le mac¬ 
chine possono vantare 
una velocità variabile tra 
i 30 e i 180 caratteri al 
secondo, in base al tipo 
di stampa desiderato. Le 
interfacce disponibili so¬ 
no due (seriale e paral¬ 


lela) e si può optare sia 
per la stampa in bianco e 
nero sia per quella a sette 
colori. La P2 costa 
1,450 milioni di lire, 
mentre la P3 costa 2,140 
milioni. Per l'opzione co¬ 
lore bisogna aggiungere 
per entrambi i modelli 
circa 900 mila lire. La 
P5 ha prestazioni superio¬ 
ri: la testina è a 24 aghi, 
la velocità arriva (nel mo¬ 
do draft) a 264 caratteri al 
secondo, mentre il buffer 
è di 8 Kb, espandibili a 
40. Ciò significa che è 
possibile operare con il 
proprio Apple II anche 
mentre vengono stampa¬ 
te 20 pagine di dati. Il co¬ 
sto della P5 è di 3,6 mi¬ 
lioni di lire. Sempre con 
testina a 24 aghi i fiori 
all’occhiello della linea 
Pinwriter, i modelli P6 e 
P7. L'elevata risoluzione 
grafica (360 x 360 punti) 
le rende ideali per la stam¬ 
pa di grafici. In più una 
speciale funzione, deno¬ 
minata Quiet mode, ren¬ 
de le ultime nate di casa 
Nec silenziose al punto 
da potere essere impiega¬ 
te in qualsiasi ambiente 
di lavoro senza creare di¬ 
sturbi acustici. La P6 co¬ 
sta 1,950 milioni di lire, 
mentre il prezzo della P7 
è stato fissato in 2,460 
milioni. Per ulteriori in¬ 




formazioni è possibile ri¬ 
volgersi alla Digitronica, 
corso Milano 88/a, Vero¬ 
na, telefono 045/566698. 

Più bello, 
il tempo a colori 

Un'idea simpatica e fun¬ 
zionale da appendere al 
muro: il coloratissimo 
Melorologio, tutto in le¬ 
gno, a colori laccati dal¬ 
l'effetto lucido molto gra¬ 
devole. Funziona con 
una batteria da 1,5 volt 
e, naturalmente, non per¬ 
de un secondo grazie al 
meccanismo al quarzo. 

Prodotto dalla società 
Nicola Nardi, via Lic- 
ciana Nardi 7, 00149 
Roma (tei. 06/5235376), 
il Melorologio verrà pre¬ 
sto distribuito negli Ap¬ 
ple Center e costerà 
49.500 lire più Iva. 

Tutti i record 
dell'Apple Ile 

Compatto, potente e 
trasportabile, l’Apple Ile 
è uno dei personal com¬ 
puter più diffusi nel mon¬ 
do grazie a una versatilità 
che gli consente di adat¬ 


tarsi alle più diverse esi- 
genzedi elaborazione per¬ 
sonale e alla disponibili¬ 
tà di più di 20 mila appli¬ 
cazioni. E da qualche 
giorno il piccolo della ca¬ 
sa della mela iridata ha 
aggiunto un nuovo re¬ 
cord nel suo ricco palma- 
rès: è risultato il perso¬ 
nal più venduto negli Sta¬ 
ti Uniti nel primo quadri¬ 
mestre 1986. 

Il merito di questa pre¬ 
stigiosa affermazione 
commerciale è senz'altro 
delle prestazioni fomite 
dal Ile (128K di memo¬ 
ria, unità disco a 3,5 e 
5,25 pollici da 400 e 800 
megabyte, interfaccia u- 
tente simile a quella di 
Macintosh, modulatore 
per il collegamento con 
un normale televisore, 
grafica ad alta risoluzione 
e portabilità di diversi si¬ 
stemi operativi). 

E sono state proprio 
queste caratteristiche a fa¬ 
re guadagnare al piccolo 
grande personal altri pri¬ 
mati, primo tra tutti quel¬ 
lo della diffusione nelle 
scuole, tra i professioni¬ 
sti e nel mondo delle uni¬ 
versità statunitensi. 
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Quattro bassotti 
per una mela 

Per i giudici chiamati 
a presiedere la trentasette- 
simaedizionedell'Esposi- 
zione intemazionale cani¬ 
na di Sanremo, emettere 
un verdetto non è stato fa¬ 
cile. 

A disputarsi i titoli a 
disposizione, infatti, era¬ 
no più di mille campioni 
a quattro zampe prove¬ 
nienti da tutta Europa e 
appartenenti a tutte le raz¬ 
ze, dai piccoli e teneri 
Yorkshire ai temibili Do¬ 
bermann. E subito dopo 
l'aggiudicazione dei trofei 
in palio, sono comincia¬ 
te le immancabili discus¬ 
sioni tra i cinofili, a vol¬ 
te convinti che i loro be¬ 
niamini meritassero ben 
altra considerazione. Su 
una cosa però si sono tro¬ 
vati tutti d'accordo: il ca¬ 
talogogenerale dell'Espo¬ 
sizione era esauriente e 
dotato di una veste grafi¬ 
ca impeccabile. 

Artefici di questo riu¬ 
scito vademecum per gli 
espositori sono stati i re¬ 
sponsabili della Bottega 
del computer, una softwa¬ 
re house della città ligu¬ 
re. "Abbiamo utilizzato 
un Macintosh e una stam¬ 
pante LaserWriter, rinun¬ 
ciando al programma Pa¬ 
ge Maker in favore di un 
software messo a punto 
da noi stessi, con un toc¬ 
co finale di MsWord e di 
LaserWriter", dice Mario 
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Ricci, titolare della Botte¬ 
ga del computer, "Per ar¬ 
rivare a un buon risultato 
finale peròabbiamodovu- 
to superare qualche diffi¬ 
coltà: basti pensare che 
gli anni scorsi, pur utiliz¬ 
zando sia un vecchio Ap¬ 
ple III sia il Mac dotato 
di OverVue, non erava¬ 
mo del tutto soddisfatti 
ederavamocomunqueco- 
stretti a impegnare tre 
persone per un lungo las¬ 
so di tempo. 

Con la nuova procedu¬ 
ra, invece, abbiamo impe¬ 
gnato una sola persona", 
continua Ricci, "ottenen¬ 
do per di più outpout in 
tempo reale: il nostro in¬ 
tervento si è reso necessa¬ 
rio solo per le rifiniture e 
la stampa su stampante 
laser". 

Un quintetto 
da stampa 

La Panasonic ha pre¬ 
sentato una nuova linea 
di stampanti a matrice di 
punti ad alte prestazioni 
e con stampa bidireziona¬ 
le, tutte votate alla versa¬ 
tilità. 

Agendo su un selettore 
posto nel pannello fronta¬ 
le, infatti, è possibile se¬ 
lezionare non solo il mo¬ 
do di stampa (draft, letter 
quality, proporzionale e 
compresso) ma anche la 
capacità di riprodurre nel 
migliore dei modi grafici 
e istogrammi. 

Il modello più econo¬ 
mico si chiama Kx- 
P1080 e lavora a una ve¬ 
locità di 100 caratteri al 
secondo (diventano 20 
nel modo letter quality) e 
stampa a 80 colonne; le 
misure sono 115 X 403 
x 286 millimetri e il pe¬ 
so è di circa sei chilo¬ 
grammi. Poi la Kx- 
P1092 e la Kx-P1592, 
che si differenziano per 
la disponibilità di colon¬ 
ne (80 per la prima e 136 
per la seconda). Entram¬ 
be hanno una velocità di 


180 caratteri al secondo 
(28 in letter quality), 
mentre le dimensioni so¬ 
no rispettivamente 137 x 
413 x 350 millimetri e 
155 x 610 x 390 milli¬ 
metri (i pesi sono 8,9 e 
13,9 chilogrammi). 

Infine il modello Kx- 
P1595. Lavora su 136 co¬ 
lonne e ha una velocità 
di 240 caratteri al secon¬ 
do (51 in letter quality). 
Pesa 14,6 chilogrammi e 
misura 155 x 610 x 390 
millimetri. 

Per chi, invece, preferi¬ 
sce sacrificare la velocità 
sull’altare delle prestazio¬ 
ni in termini di qualità di 
stampa, la Panasonic ha 
messo a punto una stam¬ 
pante a margherita sigla¬ 
ta Kx-P3151, capace di 
lavorare all'andatura di 22 
caratteri al secondo. 

Per ulteriori informa¬ 
zioni è possibile rivolger¬ 
si al distributore esclusi¬ 
vo per l’Italia delle stam¬ 
panti Panasonic, Fanton 
(l’indirizzo è via Melegna- 
no 20, Settimo Milane¬ 
se, Milano, telefono 02 
3287312). 

Infine i prezzi: la Kx- 
P1080 costa 838 mila li¬ 
re, la Kx-P1092 1,428 
milioni, la Kx-P1592 
1,795 milioni, 
la Kx-P1595 
2,240 milioni. 

Il modello a 
margherita 
Kx-P3151, 
infine, costa 
1,775 milioni 
di lire. 


Max, il gatto 
per il mouse 

Si chiama Max, è un 
simpatico e morbidissi¬ 
mo gatto ed è destinato a 
mantenere sempre in for¬ 
ma il mouse in dotazione 
al Macintosh. Max, infat¬ 
ti, è realizzato in una spe¬ 
ciale gomma che elimina 
la polvere e lo sporco: ba¬ 
sta strofinare il fedele to¬ 
polino per ritrovarselo co¬ 
me nuovo, con tutta la 
sporcizia trasferita su que¬ 
sto micio made in Usa. 

Max è utilissimo an¬ 
che quando la pallina del 
mouse si trova in difficol¬ 
tà e non riesce a rotolare 
perfettamente nella sua 
sede, dato che basta fare 
una decisa pulizia nella 
cavità che la ospita per e- 
liminare tutti i problemi. 
E quando Max comincia 



11 





D 


Piccosa 


a essere un po’ troppo 
sporco per rendersi utile, 
niente paura: basta lavar¬ 
lo con acqua e sapone e 
lasciarlo per qualche mi¬ 
nuto sotto a un getto d’ac¬ 
qua per ritrovarlo, una 
volta asciutto, pronto a 
nuove pulizie. Purtrop¬ 
po, almeno per ora, il 
simpatico gatto non è im¬ 
portato in Italia. E’ però 
possibile richiederlo scri¬ 
vendo alla Applied Ela¬ 
stomeri Ics Ine. (l'indi¬ 
rizzo è Box 701, Pacifi¬ 
ca, Ca 94044, Usa); 
costa circa 3,5 dollari. 

La mela 
contro i pirati 

Fare copie di un pro¬ 
gramma applicativo, co¬ 
stato decine (e a volte 
centinaia) di ore di lavoro 
significa appropiarsi dei 
diritti e, di conseguenza, 
dei guadagni dell'autore. 
Ed è proprio per contra¬ 
stare questa forma di pira¬ 
teria che la protagonista 
di un'azzeccata campagna 
pubblicitaria statuniten¬ 
se, una giovane e bionda 
segretaria, sostiene sorri¬ 
dente in un manifesto: 
"Non sembra, ma ho ap¬ 
pena compiuto un furto". 

In Italia per garantire il 
lavoro di musicisti, scrit¬ 
tori e poeti esiste una le¬ 
gislazione ben precisa: 
ma chi scrive o sviluppa 
software o chi acquista le¬ 
galmente i diritti di ripro¬ 
duzione di una procedura 
non è altrettanto tutelato. 
"Si tratta di un problema 
che ha raggiunto dimen¬ 
sioni preoccupanti e che 
doveva in qualche modo 
essere affrontato", dice 
Sergio Salvini, software 
manager della Apple, "da¬ 
to che i pirati del softwa¬ 
re, solo in Italia, procura¬ 
no danni per un valore 
che, nelle stime più otti¬ 
mistiche, è pari a quello 
del software regolarmente 
venduto". 

Il fatto è che la copiatu¬ 



ra di un programma non 
solo non viene quasi mai 
vissuta come un reato, 
ma è anche un’operazione 
facile dato che nessuna 
protezione è in grado di 
arginare i professionisti 
della riproduzione: per 
questi motivi la Apple 
ha partecipato alla fonda¬ 
zione della Assoft (è l'as¬ 
sociazione per la tutela 
del software), dando il 
via a una specifica campa¬ 
gna di comunicazione e 
riorganizzando la sua for¬ 
za vendite con la creazio¬ 
ne di 130 Apple Center 
che vendono esclusiva- 
mente software originale. 
In più la casa della mela 
ha deciso di commercia¬ 
lizzare i suoi personal 
senza programmi gratuiti 
o in dotazione, proprio 
per sollecitare i creatori 
di software a investire 
sui prodotti Apple. 

E solo acquistando soft¬ 
ware originale l'utente ac¬ 
quista anche il diritto al¬ 
l'assistenza, alla forma¬ 
zione e alla consulenza, 
oltre a quello di ricevere 
gratuitamente le nuove 
versioni dei programmi 
(le cosiddette release) che 
molti editori mettono in 
cantiere. 

Microsoft 
a Wall Street 

Da qualche settimana 
Microsoft non è solo l'e¬ 
tichetta di alcuni dei pro¬ 


grammi più diffusi tra i 
possessori di Apple II 
(un esempio per tutti: 
Multiplan), ma anche u- 
no dei nomi inseriti nel 
prestigioso listino di bor¬ 
sa di Wall Street. L'azio¬ 
ne Microsoft è stata valu¬ 
tala in un primo momen¬ 
to tra i 16 e i 19 dollari, 
ma questa stima è stala 
subito rettificata a 21 dol¬ 
lari grazie all'interesse 
manifestato dai potenzia¬ 
li investitori: e appena il 
titolo ha fatto il suo esor¬ 
dio in borsa la quotazio¬ 
ne è salita a quota 27 dol¬ 
lari, candidando l'azione 
Microsoft a miglior tito¬ 
lo esordiente dell'anno. 

Macintosh 
e compact disc 

Nel 1980 l'Istituto di 
CibemeticadellUniversi- 
tà degli Studi di Milano 
avviò una serie di ricer¬ 
che nel campo dell’edito¬ 
ria elettronica (il proget¬ 
to venne denominato Uni- 
book). Queste esperienze 
portaronoallarealizzazio- 
ne di un primo libro elet¬ 
tronico in ambiente U- 
nix: il progetto venne 
poi rielaborato sotto la di¬ 
rezione del professor G io- 
vanni Degli Antoni, con 
l'obiettivo di realizzare u- 
no strumento di consulta¬ 
zione capace di mettere a 
disposizione dell'utente 
testi, immagini, suoni e 
animazioni contempora¬ 


neamente. Il tutto utiliz¬ 
zando la potenza di un e- 
laboratore e la versatilità 
delle memorie ottiche, 
cioè una tecnologia recen¬ 
te e molto sofisticata. E 
da quel primo libro elet¬ 
tronico è nato il progetto 
presentato alla Grande 
Fiera di Aprile di Milano 
dal Media Group, un'orga¬ 
nizzazione formata nel 
1985 da laureandi in 
scienze dell'informazio¬ 
ne. Proseguendo gli stu¬ 
di sulle possibili evolu¬ 
zioni del libro elettroni¬ 
co, il Media Group ha 
messo a punto un siste¬ 
ma composto da un Ma¬ 
cintosh e da un Cd-Rom 
(Compact disc read only 
memory) della Philips. I 
dischi ottici, analoghi a 
quelli che stanno sosti¬ 
tuendo i normali long 
playing nelle discoteche 
degli audiofili, consento¬ 
no di archiviare fino a 
600 milioni di caratteri 
(cioè più dell'intera enci¬ 
clopedia Britannica o de¬ 
gli elenchi telefonici di 
Milano e provincia). Le 
informazioni possono 
successivamente essere 
utilizzate con tempi di ri¬ 
cerca e di accesso molto 
contenuti; nella versione 
definitiva del sistema è 
prevista per la memoriz¬ 
zazione dei testi l’utilizza¬ 
zione del formato Tex, il 
potente linguaggio di for¬ 
mattazione elaborato al¬ 
l'università di Stanford. 
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V 0MNIS3 

é un potentissimo generatore di programmi 
(Data Base Relazionale) 
interamente in lingua italiana 

alla portata di tutti. 

Con OMNIS 3 é possibile 

realizzare in breve tempo complesse applicazioni 
senza alcuna conoscenza dei linguaggi 
- > | ■ £di programmazione. 


OMNIS 3 é disponibile per 

MACINTOSH, APLLEII e MSDOS, 
in versione mono e multiutente. 


OMNIS 3 é prodotto dalla 

BLITH SOFTWARE Ltd. 


Distribuito ed assistito 
in esclusiva in tutta ITALIA da: 


Via Chiapponi,42-29100 PIACENZA - Tel. 0523/20626 
Disponibile anche presso tutti i migliori APPLE CENTER 


BASIC ? PASCAL ? 
LINGUAGGIO MACCHINA ? 

Basta con i linguaggi 
di programmazione!.. 


.ora ce 


OMNIS 3 


IL SOLO ED UNICO PROGRAMMA 
IN LINGUA ITALIANA 
DI CUI A VETE BISOGNO 


Questa pagina é stata realizzata con Macintosh da BUMP - Piacenza 















PageMaker 


[La Fotocpjnposizione Elettronica, J 


ggsIfefegg-Matei 

E' un prodotto software orientato alla 
creazione e impaginazìone dì testi e 
figure, che consente la realizzazione 
della composizione tipografica nel proprio 
ufficio. In pratica può essere considerato 
l'equivalente del piano tipografico per la 
configurazione di layouts di stampa. 

Page Maker è il prodotto che completa e 
potenzia l'utilizzo di MacWrite, MacDraw 
e MacPaint, per una valida composizione 
tipografica di pubblicazioni, comunicati 
stampa, listini prezzi, manuali di istruzio¬ 
ni, elenchi e presentazioni. 

Le pagine possono essere assemblate tra 
loro in maniera rapida, con precisione e a 
basso costo, estraendole da documenti 
già memorizzati, da grafici e disegni. 

serve Pw Meter 

Con Page Maker anche i più semplici lavo¬ 
ri di editoria possono essere realizzati a 
livello professionale. Inoltre, a differenza 
dei servizi veri e propri di composizione, 
possono essere prodotti con un notevole 
risparmio di tempo, passando direttamen¬ 
te dall'impostazione grafica alla tipografia 
senza sottoporsi a numerosi processi di 
fotocomposizione. 

Utilizzando Page Maker, chiunque può es¬ 
sere in grado di creare pubblicazioni sul 
video, cambiando la lunghezza delle ri¬ 
ghe, creando colonne di stampa (fino a 
10), ingrandendo o riducendo sezioni o 
correggendo i testi, inserendo e assem¬ 
blando grafici e altro. 


Chiunque abbia questo tipo di esigenze, 
pur non lavorando nel settore editoriale o 
non avendo alcuna esperienza di grafica 
o disegno, con Page Maker ha la garanzia 
di ottenere ottimi risultati di lavoro ad un 
livello qualitativo superiore. 

Il prodotto consente inoltre di correggere 
testi razionalizzando gli spazi o, eventual¬ 
mente, eliminando parte del testo per im¬ 
paginarlo in modo ottimale. 

A-ghl. s erve . P? q e M ?ter 
Page Maker può essere utilizzato in uffi¬ 
cio sia a livello impiegatizio che professio¬ 
nale. 

E' particolarmente utile a: 

Uffici Marketing per la realizzazione di 
listini, bollettini, guide o elenchi di 
mailings, documentazione promozionale. 
Uffici Tecnici per la stesura completa del¬ 
la documentazione tecnica dei prodotti in¬ 
tegrata a testi e disegni, per la creazione 
di manuali. 

Uffici Grafici per la visualizzazione delle 
intuizioni creative dei grafici equilibrando¬ 
le con il volume di testo e griglia da combi¬ 
nare. 

Uffici Tipografici per la realizzazione della 
composizione elettronica dei testi spo¬ 
standosi dal testo alla stampa senza bi¬ 
sogno di passaggio di fotocomposizione. 
Ufficio Personale per la realizzazione del¬ 
le pubblicazioni interne (giornali), per co¬ 
municazioni al personale dipendente, bol¬ 
lettini, o altro. 


Cosa può fare Page Maker 

Page Maker può: 

• creare e modificare fino a 16 pagine 

• determinare formato pagina (standard) 

• modificare ed elaborare testi 

• elaborare figure e linee geometriche 

• ingrandire (effetto zoom) 

•definire numero e dimensione colonne 

• modificare tipo e corpo carattere 

• inserire righelli e numerazione pagine 

• sovrapporre testo e grafica 

P erchè Pgg e Maker 
Page Maker è uno strumento che con¬ 
sente all'utilizzatore di aumentare le sue 
capacità operative. Infatti, anche una 
persona senza esperienza particolare di 
grafie?, può essere in grado di creare 
delle validissime pubblicazioni ad un li¬ 
vello qualitativo notevole. 

Page Maker rappresenta inoltre uno stru¬ 
mento estremamente stimolante per i di¬ 
segnatori grafici: infatti si possono otte¬ 
nere rapidamente pagine finite, consen¬ 
tendo cosi ad un abile utilizzatore del 
prodotto di esaminare, correggere e rifi¬ 
nire eventuali dettagli a carattere grafico. 
La sua potenzialità è eccezionale. E' un 
prodotto di facile utilizzo, realizzato in 
italiano. 

Utilizzando un programma di comunica¬ 
zione come il MacTerminal è possibile as¬ 
semblare informazioni su testi, create pre¬ 
cedentemente con i sistemi dedicati di 
word processing su altri personal 
computer, trasferendo il file del word 
processor su disco Macintosh. 

I risultati ottenibili con Page Maker posso¬ 
no essere esaltati dalPutilizzo di una stam¬ 
pante laser. L'uso di Page Maker crea una 
tra le più efficienti ed economiche tipogra¬ 
fie mai realizzate. 


Configurazione Hardware 

. Macintosh 512K 

. 2 disk-drive o hard-disk + 1 disk-drive 



-Società Italiana Software J 
SOLUZIONI IN PUGNO 


V.le Europa 48 - 20093 Cotogno Monzese 
telef. (02)2514.1 - telex 316197CANL5 



Riproduzione a video della pagina composta con il programma Page Maker 





































































MUSICA 


La chitarra è sempre di moda, e questo programma in 
anche a chi è proprio digiuno, impiega la grafica a ' 
per insegnarne gli accordi. Due le sue grandi qualità: 
e una speciale routine che permette di verificare che 

Tutti i segr 
di un buon a 
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Per capire quanto è dura la sorte 
dell'apprendista suonatore di chitarra, 
autodidatta s'intende, basta acquistare 
un manualetto con la spiegazione de¬ 
gli accordi. In genere i grafici degli 
accordi sono diagrammi di piccole di¬ 
mensioni e di ardua lettura, stipati 
in due pagine. 

Ad aumentare le difficoltà, il neo¬ 
chitarrista non ha modo di verificare 
se impiega per un determinato accor¬ 


do la diteggiatura giusta. Maestro di 
chitarra, per fortuna, è tutt'altra co¬ 
sa: disegna i sei tasti superiori della 
tastiera della chitarra e vi sovrappo¬ 
ne la diteggiatura giusta, in grafica 
a bassa risoluzione. 

Sono disponibili tutti gli accordi 
fondamentali maggiori, minori e di 
settima. In aggiunta un’opzione di 
autoesame vi permette di verificare 
come andate. 


Come si adopera 
il programma 

L'uso di Maestro di chitarra non è 
complicato. Quando si fa girare il 
programma i dati vengono letti in u- 
na matrice e il menù principale vi¬ 
sualizza cinque scelte. Premete 1 per 
fare la selezione fra gli accordi mag¬ 
giori, 2 per gli accordi minori e 3 
per quelli di settima. Con T si sele- 
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ziona l'opzione di autoesame, con Q 
si esce dal programma. 

Se scegliete 1, 2 o 3, vedrete una 
schermata mista di testo e grafica 
che mostra la parte superiore della ta¬ 
stiera di una chitarra, disegnata in 
grafica Lo-Res. 

Sotto sono visualizzati i dodici ac¬ 
cordi disponibili, con il segno - a in¬ 
dicare il bemolle. Mediante le frecce 
sinistra e destra mettete il cursore in 
posizione sull’accordo che volete ve¬ 
dere e premete <RETURN>. Compa¬ 
re il nome dell’accordo, viene visua¬ 
lizzata la diteggiatura e siete invita¬ 
ti a dire se volete continuare o smet¬ 
tere. 

I problemi di impaginazione deri¬ 
vanti dall'uso del cursore con note 
composte di due o più lettere sono 
stati risolti in questo programma 
utilizzando i simboli musicali anglo- 
sassoni. La tavola 1 mostra la cor¬ 
rispondenza tra i due tipi di note. 

Se scegliete l’opzione di autoesa¬ 
me, viene visualizzato un menù che 
vi invita a scegliere gli accordi di 
scala maggiore o minore o quelli di 
settima, o tutti e tre. Se fate una del¬ 
le prime tre scelte vi verrà chiesto di 
suonare, nell’ordine, ciascuno degli 
accordi visualizzati dal programma. 
Se scegliete l’opzione 4 (tutti) il pro¬ 
gramma sceglie un accordo a caso. 
Dopo aver suonato l’accordo sulla 
chitarra premete <RETURN> per ve¬ 
dere se l’accordo che avete suonato e- 
ra quello giusto. Alla fine delle op¬ 
zioni di autoesame 1, 2 o 3 sarete ri¬ 
condotti al menù principale. Invece 
l’opzione di autoesame 4 prosegue fi¬ 
no a quando premete <RETURN>. 

Introduzione e 
uso del programma 

Per introdurre il Maestro di chitar¬ 
ra è sufficiente digitare il listato 1 
e salvarlo con il comando: 


SAVE MAESTRO.DI.CHITARRA 


Le linee 240-330 dimensionano le 
matrici, leggono i nomi degli accor¬ 
di nella matrice stringa R$(12) e leg¬ 
gono i dati per tracciare la diteggiatu¬ 
ra. Questi dati vengono immagazzi¬ 
nati nella matrice CD(J,K,L). La ma¬ 
trice C(3,12) conserva il numero di 
tracciamenti richiesto da ciascun ac¬ 
cordo. Notate che 3 x 12 dà un tota¬ 
le di 36 accordi possibili. 

I dati sono introdotti come segue: 
il primo numero è il numero delle 
corde che dovete tener premute per 


Tavola 1. Codifica delle note musicali. 
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Listato 1. Maestro.di.chitarra 

DOS 3.3 

10 REM - 

ProDOS 

Apple Ile 

20 REM MAESTRO DI CHITARRA 

30 REM DI M.E. BAKICH 

Apple Ile 


40 REM COPYRIGHT (C) 1986 
50 REM BY APPLICANDO & 

60 REM MICROSPARC, INC. 

70 REM - 

80 GOTO 240 

85 R$(C1) = N$ (CI): RETURN 

90 HOME : GR : REM DISEGNA GRIGLIA VUOTA 

100 COLOR= 5 

110 FOR X = 2 TO 38 STEP 6 
120 HLIN 13,28 AT X 
130 NEXT X 

140 FOR Y = 13 TO 28 STEP 3 
150 VLIN 2,38 AT Y 
160 NEXT Y 
170 RETURN 

180 COLOR= 15: REM DISEGNA GLI ACCORDI 
190 FOR I = 1 TO C(A,CI) 

200 FOR J = 0 TO 2 

210 PLOT CD (A,Cl,I) + J,CD(A,C1,I + C(A,C1)) - 1 
220 NEXT J,I 
230 RETURN 

240 HOME : VTAB 7: HTAB 11: PRINT "MAESTRO DI CHITARRA": PRINT : 
HTAB 12: PRINT "BY MICHAEL BAKICH": PRINT : PRINT " (C) 1986 
BY APPLICANDO & MICROSPARC" 

245 VTAB 21: HTAB 5: PRINT "PREMI <RETURN> PER CONTINUARE";: GET 
Z$: PRINT : HOME : VTAB 10: HTAB 7: PRINT "STO LEGGENDO GLI A 
CCORDI" 

250 DIM N$(12),R$(12),CD(3,12,19),C(3,12) 

260 CHS (1) = " MAGGIORE":CH$(2) = " MINORE": CHS (3) = " SETTIMA" 
270 DATA A, B, C,D,E,F,G,A BEM,B BEM,D BEM,E BEM,G BEM 
275 DATA LA, SI, DO, RE,MI,FA,SOL,LA BEM,SI BEM,RE BEM,MI BEM,SOL B 
EM 

280 FOR I = 1 TO 12: READ R$(I): NEXT 

285 FOR N = 1 TO 12: READ N$(N): NEXT 

290 FOR J = 1 TO 3 

300 FOR K = 1 TO 12 

310 READ C(J,K) 

320 FOR L = 1 TO C(J,K) * 2: READ CD ( J, K, L) : NEXT L 
330 NEXT K,J 
340 TEXT : HOME 


350 

FOR I = 1 TO 13: 
PRINT "*": NEXT 

: VTAB 

I: HTAB 5: 

PRINT "*": 

VTAB 

I: HTAB 29 

360 

FOR I = 6 TO 28: 
PRINT "*": NEXT 

: VTAB 

1: HTAB I: 

PRINT 

VTAB 

13: HTAB I 

370 

VTAB 3: HTAB 8: 

PRINT 

"SONO DISPONIBILI" 



375 

VTAB 4: HTAB 8: 

PRINT 

"PER L'OSSERVAZIONE" 



380 

VTAB 5: HTAB 8: 

PRINT 

"I SEGUENTI 

ACCORDI :" 




390 VTAB 7: HTAB 10: PRINT "(1) MAGGIORE" 

400 VTAB 9: HTAB 10: PRINT "(2) MINORE" 

410 VTAB 11: HTAB 10: PRINT "(3) SETTIMA" 

420 VTAB 18: HTAB 3: PRINT "O: PREMI 'A* PER UN AUTOESAME" 

430 VTAB 20: HTAB 3: PRINT " 'F' PER FINIRE" 

440 VTAB 23: HTAB 20: PRINT "SCEGLI...";: GET A$ 

450 IF A$ = "A" THEN 810 

460 IF A$ = "F" THEN END 

470 IF A$ < "1" OR A$ > "3" THEN 440 

480 A = VAL (A$) 

490 HOME : GOSUB 90 
500 X = 4 

520 VTAB 21: PRINT "SCEGLI FRA QUESTI ACCORDI IN"; CHS (A);":" 

530 VTAB 22: HTAB 4: PRINT "A B C D E F G A- B- D- E- G-" 

540 VTAB 24: PRINT "USA <— E —> POI <RETURN>//<ESC>=MENU'"; 

550 IF S < 4 THEN S = 37 

560 IF S > 37 THEN S = 4 

570 VTAB 22: HTAB S: GET WS 

580 IF WS = CHRS (27) THEN 340 

590 IF WS = CHRS (13) THEN 630 

600 IF WS = CHRS (8) THEN S = S - 3: GOTO 550 

610 IF WS = CHRS (21) THEN S = S + 3: GOTO 560 

620 GOTO 550 

630 HOME :C1 = INT (S / 3) 

640 GOSUB 180 

650 INVERSE : IF Cl > 7 THEN 670 
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suonare raccordo. Dato che ogni po¬ 
sizione di dito richiede una coordina¬ 
ta X,Y sullo schermo Lo-Res, que¬ 
sto numero moltiplicato per due indi¬ 
ca il restante numero di introduzioni 
di dati per quell’accordo. 


Prendiamo come esempio il pri¬ 
mo accordo, in la maggiore. 

Imprimo numero a linea 720 (la 
prima istruzione DATA relativa allo 
schermo grafico) è tre. Questo indica 
che per suonare un accordo in la 


660 VTAB 22: HTAB 16: GOSUB 85: PRINT R$(CI);CH$(A): GOTO 680 

670 VTAB 22: HTAB 15: GOSUB 85: PRINT R$(CI); CHS(A) 

680 NORMAL : VTAB 24: HTAB 1: PRINT "<RETURN> = CONTINUI";: HTAB 
25: PRINT "<ESC> = MENU'";: GET A$ 

690 IF A$ = CHR$ (27) THEN 340 
700 IF A$ < > CHR$ (13) THEN 680 

710 COLOR= 0:,GOSUB 190: GOSUB 100: HOME : GOTO 520 

720 DATA '3, ì 8,21, 24,12, 12,12, 9, 27,24,21,18, 15,12, 24,21, 18,12, 12 

,12,12,12,12,24,24,24,3,24,18,15,6,12,18,3,27,24,21,12,18,12, 

3.15.18.21.12.12.6.4.27.24.21.18.6.6.12.18.3.12.15.27.18.12.1 
8 

730 DATA 9,18,21,15,12,15,18,21,24,27,36,30,36,24,24,24,24,24,2 
4,9, 18, 21., 24,12,15,18,21, 24,27,18,18,18, 6, 6, 6, 6, 6, 6, 9,18, 21,2 

4.12.15.18.21.24.27.36.36.36.24.24.24.24.24.24 

740 DATA 5,18,21,24,24,27,30,18,18,24,18,9,15,18,21,12,15,18,21 
,24,27,24,24,18,12,12,12,12,12,12 

750 DATA 3,18,21,24,12,12,6,9,18,21,24,12,15,18,21,24,27,24,24, 
18,12,12,12,12,12,12,9,18,21,24,12,15,18,21,24,27,30,30,24,18 
,18,18,18,18,18,3,21,24,27,12,18,6,2,15,18,12,12 
760 DATA 8,15,18,12,15,18,21,24,27,18,18,6,6,6,6;6,^,8,15,18,12 
,15,18,21,24,27,30,30,18,18,18,18,18,18,8,15,18,12,15,18,21,2 
4,27,36,36,24,24,24,24,24,24,9,18,21,24,12,15,18,21,24,27,18, 
18, 12,6, 6, 6,6,6, 6 

770 DATA' 9,18,21,24,12,15,18,21,24,27,36,36,30,24,24,24,24,24,2 

4.4.18.21.24.27.24.18.24.12.8.15.18.12.15.18.21.24.27.24.24.1 
2,12,12,12,12,12 

780 DATA 2,18,24,12,12,8,18,24,12,15,18,21,24,27,24,24,12,12,12 
,12,12,12,4,15,18,21, 24,18,12,18, 6, 3,21,24,27,12, 6, 12,2,15, 21 
,12, 6,8,15, 21,12,15,18, 21,24, 27,18,12,6, 6, 6, 6, 6, 6, 3,12,15,27, 
18,12,6 

790 DATA 8,15,21,12,15,18,21,24,27,36,30,24,24,24,24,24,24,8,18 
,24,12,15,18,21,24,27,18,18,6,6,6,6,6,6,8,18,24,12,15,18,21,2 

4.27.36.36.24.24.24.24.24.24 

800 DATA 4,18,21,24,27,6,18,12,18,8,15,21,12,15,18,21,24,27,24,1 
8,12,12,12,12,12,12 

810 HOME : VTAB 3: PRINT "SCEGLI (PER L'AUTOESAME):" 

820 VTAB 6: PRINT "1) ACCORDI MAGGIORI" 

830 VTAB 8: PRINT "2) ACCORDI MINORI" 

840 VTAB 10: PRINT "3) ACCORDI DI SETTIMA" 

850 VTAB 12: PRINT "4) TUTTI GLI ACCORDI" 

860 VTAB 16: HTAB 20: PRINT "QUALI...";: GET A$ 

870 IF A$ < "1" OR A$ > "4" THEN 860 

880 B = VAL (A$) : A = B 

890 GOSUB 90 

900 IF B < >4 THEN 920 

910 A = INT ( RND (1) * 3) + 1:C1 = INT ( RND (1) * 12) + 1: GO 
TO 930 

920 FOR CI = 1 TO 12 
930 GOSUB 100 

940 HOME : VTAB 22: PRINT "SUONA-> ";N$ (CI); CHS(A) 

950 REM LA LINEA SEGUENTE HA 36 TRATTINI 

960 VTAB 23: HTAB 1: PRINT "-" 

: VTAB 24: PRINT "<RETURN> = ACCORDO";: HTAB 25: PRINT "<ESC> 
= MENU'"; : GET A$ 

970 IF A3 = CHR3 (27) THEN 340 
980 IF A3 < > CHR3 (13) THEN 960 

990 GOSUB 180 

1000 HOME : VTAB 22: INVERSE 
1010 IF CI > 7 THEN 1030 

1020 HTAB 18: PRINT N$ (CI); CHS(A) : NORMAL : GOTO 1060 
1030 IF A = 3 THEN 1050 

1040 HTAB 16: PRINT N3(CI); CHS(A) : NORMAL : GOTO 1060 
1050 HTAB 15: PRINT N3(CI); CHS(A) : NORMAL 

1060 VTAB 24: HTAB 1: PRINT "<RETURN> = CONTINUI";: HTAB 25: PRIN 
T "<ESC> = MENU'";: GET A$ 

1070 IF A$ = CHRS (27) THEN 340 

1080 IF A$ < > CHRS (13) THEN 1060 

1090 COLOR= 0: GOSUB 190 

1100 IF B = 4 THEN 910 

1110 NEXT CI 

1120 TEXT : GOTO 340 


Checksum del listato 1 

NOME FILE: MAESTRO DI CHITARRA 
TIPO: A 

LUNGHEZZA:/0DA2 
CHECKSUM : 15 




maggiore si devono tenere premute 
tre corde. Il resto dell’accordo è defi¬ 
nito dai 6 (3 x 2) numeri seguenti. I 
primi tre sono le coordinate X, e i 
tre successivi sono le coordinate Y. 
Perciò la sovrapposizione delle dita 
alla tastiera sullo schermo Lo-Res 
sarebbe tracciata da X=18, Y=12, 
poi X=21, Y=12, e infine X=24, 
Y=12. 

Le linee 340-480 stampano la pri¬ 
ma schermata e attendono una rispo¬ 
sta. Poi il flusso del programma fa 
una diramazione al numero di linea 
appropriato. 

Le linee 490-710 sono il cuore del 
programma. Di qui il flusso del pro¬ 
gramma opera una diramazione a li¬ 
nea 90, la prima parte della routine 
grafica. Questa subroutine traccia i 
sei tasti superiori della chitarra. La 
subroutine che comincia a linea 180 
traccia la diteggiatura. 

Le linee 810-1120 sono la subrou¬ 
tine di autoesame (che fa una dirama¬ 
zione dalla linea 450). Le linee 810- 
880 visualizzano il menù di autoesa¬ 
me. La routine che comincia a linea 
900 vi chiede di suonare, nell’ordine, 
ognuno degli accordi delle categorie 
1, 2 o 3. 

La linea 910 sceglie un accordo a 
caso se vengono scelte tutte le opzio¬ 
ni, e salta il loop FOR-NEXT. 
Quando premete <RETURN> vi mo¬ 
stra la diteggiatura giusta per raccor¬ 
do. La linea 1120 fa tornare al menù 
principale. 

I possibili 
miglioramenti 

Il programma può essere modifica¬ 
to in vari modi. Si potrebbero per e- 
sempio aggiungere altri accordi nel¬ 
le matrici di dati: non male sarebbe 
intodurre accordi di nona, settima mi¬ 
nore o diminuiti. 

Sarebbe inoltre molto interessante 
poter confrontare i vostri accordi di 
chitarra con accordi suonati sull'Ap¬ 
ple. Per questa modifica occorrereb¬ 
be un generatore musicale in grado 
di suonare.un intero accordo: trovere¬ 
te a questo proposito delle accurate 
recensioni di software sul prossimo 
numero di Applicando. 


Questo programma è disponibile 
su dischetto. L’elenco, i prezzi 
e le modalità d’ordine di questo 
e degli altri dischetti disponibili 
sono riportati nella rubrica 
Disk Service. 
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In prospettiva il costo dell'hardware tende a zero e quello del software 
tende invece all'infinito: ma è possibile spendere cifre ragionevoli 
e ottenere ugualmente buone prestazioni? 



Supersoft, 
e costa poco 


Il software è come la benzina per 
un’automobile: senza carburante la 
macchina non va. Ma se la benzina 
costasse più dell'auto, addio motoriz¬ 
zazione. Così uno dei più grossi pro¬ 
blemi di chi acquista un personal 
computer è quello di trovare pro¬ 
grammi adeguati alle proprie esigen¬ 
ze e, soprattutto, dal costo non proi¬ 
bitivo, dove nel costo, oltre a quello 
monetario in senso stretto, andrebbe 
compreso anche quello del tempo da 
dedicare al problema, all'addestra- 
mento del personale, eccetera. 

Però se è relativamente facile tro¬ 
vare software specialistico di buona 
qualità, è altrettanto facile che il suo 
costo superi il milione di lire, e 
quindi sia pari ad almeno un quarto 
del costo del computer. Senza conta¬ 
re che spesso si tratta di programmi 
da accettare così come sono: se stan- 1 
no stretti non si possono allargare, 
bisogna che a restringersi sia l'uten¬ 
te. Oppure bisogna sottòporsi a sner¬ 
vanti trattative perchè la messa a 
punto del programma sia fatta in 
tempi brevi e a costi ragionevoli. Se 
i problemi da risolvere sono tre o 
quattro, con altrettanti programmi, 
si può facilmente scoprire che il co¬ 
sto globale del software finisce col 
superare di gran lunga quello del 
computer. Ora, tutti sappiamo che 
in prospettiva il costo dell'hardware 
tende a zero e quello del software ten¬ 
de invece all'infinito. Come fare allo¬ 
ra perchè la benzina non costi più 
dell'auto? 

Una delle soluzioni è quella di usa¬ 
re dei generatori di applicazioni, pro¬ 
grammi cioè capaci di adattarsi alle e- 
sigenze dell'utente, costruendo appli¬ 
cazioni su misura di basso costo ma 
non per questo di cattiva qualità. 
Può essere una software house a rea¬ 
lizzare l'applicazione sulle specifiche 


del cliente (ma usando il generatore, 
e quindi a costi ragionevoli), oppure 
l’utente stesso, con un po' di pratica. 
Vediamo come. 














Il data base 

programmabile: Omnis3 

Fra i generatori di applicazioni un 
posto di primissimo piano spetta a 
Omnis3, già disponibile in Italia e 
in versione italiana, corredato da un 
ampio e chiaro manuale, per Macin¬ 
tosh, per Apple II e per Ibm, Olivet¬ 
ti e compatibili. E’ a lui che in par¬ 
ticolare Applicando dedica la storia 
di copertina di questo numero perchè 
altri prodotti analoghi (anche se me¬ 
no potenti) come per esempio Helix 
Plus non hanno ancora diffusione in 
Italia, nè in italiano. Mentre di pro¬ 
dotti come Excel (che non si limita 
ad essere uno spreadsheet, ma ha an- 
ch'esso avanzatissime caratteristiche 
di programmabilità) ci siamo occupa¬ 
ti nel numero scorso. 

Omnis3 è un data base relazionale 
programmabile in grado di gestire 
archivi contenenti le informazioni 
più disparate, di elaborare i dati 
secondo specifiche esigen¬ 
ze^ di preparare report di 
stampa anche molto 
complessi. E’ inoltre 
in grado di creare 
più di un’applicazio¬ 
ne, con vari livel¬ 
li di interconnes¬ 
sione. 

La prima volta che 
si utilizza Om- 
nis3 si dovrà 
battezzarlo, 
con un nome o un 
codice che atte¬ 
sti chi lo utiliz¬ 
za; tale operazione 
garantisce nel caso 
cui si sia i legittimi 
regolare assistenza 
i del buon funziona¬ 
mento del programma. Quando 

si costruisce una applicazione vie¬ 
ne creato sul dischetto specificato un 
file indicato con LIBRARY, che con¬ 
tiene le istruzioni che permettono la 
gestione dell’archivio dati, che è in¬ 
vece indicato dalla parola DATA. A 
complemento di ciò esiste un appli¬ 
cativo chiamato UTILITIES che per¬ 
mette la manipolazione degli archivi 
e delle librerie. 

Ovviamente per poter scrivere le 
proprie applicazioni è opportuno che 
l’utente proceda con ordine, fissando 
alcuni punti importanti: 

1 Studiare bene quale problematica 
si vuole risolvere. 

2 Strutturare i file con campi appro¬ 
priati. 
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Figura 2 


3 Verificare i collegamenti tra gli ar¬ 
chivi. 

4 Scrivere le maschere con le relati¬ 
ve procedure. 

Tutto ciò operativamente vuol 
dire: 

• Determinare il TIPO di informazio¬ 
ni che l’archivio deve contenere. 

• Costruire i FILE e quindi i MODU¬ 
LI per l'inserimento dei dati. 

• Definire le RELAZIONI tra i vari 
file, e programmare le SEQUENZE. 

• Creare i REPORT e le RI¬ 
CERCHE. 

• Impostare i MENU. 

• Inserire i DATI. 

Qualora ve ne fosse bisogno è pos¬ 
sibile decidere a quali parti dell’ap¬ 
plicazione possono accedere altri u- 
tenti impostando delle PAS¬ 
SWORD. 

Il primo passo per costruire un 
DATABASE è quello di analizzare 
bene il tipo e la quantità di informa¬ 
zioni che dovrà contenere. Per con¬ 
venzione ogni "unità o categoria di 
informazione" si chiama CAMPO. 
Ad esempio si chiamerà CAMPO il 
NOME, riNDIRIZZO o la CITTA', 
qualora nel nostro Database debbano 
essere immagazzinate informazioni 
di questo tipo. Un RECORD è un 
insieme di CAMPI che hanno in co¬ 
mune l’appartenenza a un medesimo 
soggetto; infine un FILE è l’insieme 
di tanti RECORD che hanno in co¬ 
mune lo stesso tipo di CAMPI. 

Per creare un file con Omnis3 bi¬ 
sogna definirne il FORMATO, spe¬ 
cificando il tipo e la quantità dei 
campi che possono servire. A tale 
scopo basta selezionare dal menù 
ARCHIVIO la voce "Mostra il me¬ 
nù Opzioni", da cui bisogna selezio¬ 
nare la voce "Formato dei Files", e a 
cui seguirà la finestra relativa dove, 
dei tre bottoni presenti, solo il pri¬ 
mo è attivo: clicchiamo quindi su 
NUOVO (figura 1). A questo pun¬ 
to viene richiesto il nome da dare al 
nuovo file: nome che dev’essere lun¬ 
go al massimo sette caratteri, che de¬ 
ve cominciare con una lettera, e che 


deve contenere solamente lettere e 
numeri. Dopo di che comparirà la fi¬ 
nestra relativa al FORMATO DEL 
FILE (figura 2), che come si può 
notare è composto di due parti: 

• a sinistra la lista dei campi 

• a destra il dettaglio delle caratteristi¬ 
che dei campi, dove si stabilisce il 
nome del campo, di che tipo deve es¬ 
sere, la lunghezza in caratteri, quan¬ 
ti decimali (nel caso di campi nume¬ 
rici), e se deve essere indicizzato. 
Quest’ultima voce è molto importan¬ 
te quando si lavora con archivi di di¬ 
mensioni medio-grandi: infatti la 
possibilità di indicizzare uno o più 
campi di un record alfintemo di un 
archivio, permette di ritrovare quel 
record con estrema rapidità. 

Una volta strutturati i vari file che 
comporrano il nostro database, si po¬ 
trà passare ai collegamenti, se ve n’è 
bisogno; a tale scopo è sufficiente 
selezionare la voce COLLEGAMEN¬ 
TI dal menu MODIFICA FILE. 
Verrà mostrata una finestra in cui so¬ 
no contenuti i nomi dei nostri file, a 
fianco dei quali si trova un quadrati¬ 
no: cliccando su di esso si opereran¬ 
no i vari collegamenti desiderati. 

Il primo passo verso la costruzio¬ 
ne del database è terminato. 

Inserimento 
ed elaborazione dati 

Il passo successivo sarà quello di 
creare dei MODULI (o Maschere a 
video) che ci permetteranno l’inseri- 
mento fisico dei dati, e di conseguen¬ 
za la loro elaborazione. 

Scegliamo la voce MODULI d’IN- 
SERIMENTO dal menù OPZIONI, 
ed analogamente al caso relativo al 
Formato dei File, clicchiamo sul 
bottone NUOVO, ricordandoci di 
quantoabbiamovistoprecedentemen- 
te per quanto concerne il nome da da¬ 
re al nuovo modulo (figura 3). 

A questo punto compare la fine¬ 
stra del MODULO (figura 4), il 
cui schermo è il primo di 12 disponi¬ 
bili e sopra i quali possono essere di- 
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sposti i campi. Per passare da uno 
schermo all’altro è sufficiente far ri¬ 
corso alla barra di scorrimento verti¬ 
cale. Esaminando questa finestra si 
possono notare tre bottoni in alto a 
destra, e un riquadro in basso a de¬ 
stra che informa della posizione del 
cursore sul video (figura 5). I tre 
bottoni sono: 

CAMPO, che permette di defini- 
Figura 3 Figura 4 re le caratteristiche a video di un 

qualsiasi campo (figura 6). In que¬ 
sta fase è possibile definire ulterior¬ 
mente le caratteristiche di un campo 
selezionandoladescrizionedesiderata 
tra quelle disponibili; la selezione è 
confermata o da una croce o dal riem¬ 
pimento di un bottone accanto all'at- 
tributo prescelto. Ad esempio si po¬ 
trà desiderare che il valore di quel 
campo sia visualizzato solo in maiu¬ 
scole, che sia protetto e quindi alli¬ 
neato a destra. 

CORNICE, che consente di ri¬ 
quadrare l’area contenente i campi 
con i relativi titoli, per una presenta¬ 
zione più raffinata della videata. 

RIORDINA, che effettua il rior¬ 
dino del nostro lavoro, nel caso in 
cui esso ha subito variazioni o modi¬ 
fiche. 

Una volta impostati i files ed i re¬ 
lativi moduli d’inserimento si posso¬ 
no finalmente inserire i dati. Per far 
ciò si hanno due possibilità: 

- selezionare la voce MODULI d'IN- 
SERIMENTO dal menu opzioni, 
scegliere il modulo desiderato e clic¬ 
care sul bottone INSERIMENTO 

- oppure costruirsi un menù persona- 
lizzato per procedere all'inserimento. 

Nel primo caso compare il modu¬ 
lo che abbiamo costruito, vuoto e 
pronto ad accogliere i dati; in alto a 
destra compare il menù INSERI¬ 
MENTO e compaiono anche, a lato 
i bottoni: AVANTI, INDIETRO, 
TROVA, CERCA, INSERISCI, 
MODIFICA, CANCELLA e 
STAMPA. 

Avanti e Indietro permettono di 
sfogliare l'archivio passando da un re¬ 
cord all'altro, allo stesso modo con 
cui si sfoglierebbe un libro. Trova e 
Cerca sono due funzioni sostanzial¬ 
mente diverse pur sortendo il medesi¬ 
mo risultato; infatti Trova è una fun¬ 
zione che utilizza gli indici dell’archi¬ 
vio, mentre il Cerca serve anche ad 
operare una selezione all’interno del¬ 
l'archivio attraverso dei criteri di ri¬ 
cerca (ad esempio trovare tutte quelle 
schede contenenti nomi che cominci¬ 
no con la lettera A). 

Inserisci permette l'inserimento di 


Caratteristiche tecniche di Omnis3 

Vediamo una breve rassegna delle caratteristiche tecniche di Omnis3, 
di cui, ricordiamo, esistono due versioni: una dedicata al Macintosh e 
un'altra dedicata all'Apple II, oltre a quella per MsDos.. 

1) LIBRERIA 

Dimensioni Max della libreria 2Mb 
Numero Max di 'FORMATI' 240 
Numero Max di Formati dello stesso tipo 60 
Dimensioni Max di ogni singolo formato 100Kb 

2 ) FORMATO DEI FILE 

Numero Max di files per applicazione 60 
Numero Max di files aperti contemporaneamente 12 
Numero Max di indici per ogni file 12 
Numero Max di campi per ogni file 120 
Numero Max di caratteri per campo 60 
Numero Max di caratteri per file aperti 25000 
Precisione numerica (cifre significative) 11 
Numero Max di cifre decimali 6 

3) MODULI 

Numero Max di schermi 12 
Numero Max di campi per singolo schermo 120 
Numero Max di sequenze per file 60 
Numero Max di comandi per sequenza 60 

4) REPORT 

Numero Max di righe per modulo 240 
Numero Max di colonne per modulo 240 
Numero Max di campi per modulo 9600 
Numero Max di campi per riga 40 
Numero Max di 'Campi Totali' per Report 60 

5) MENU 

Numero Max di linee per ogni menu 18 
Numero Max di comandi per ogni linea 9 

6) FORMATI DI RICERCA 

Numero Max di linee per comparazione 50 

7) ARCHIVI 

Dimensioni Max di ogni singolo File 64Mb 

Numero Max di record Limitato alla capienza del supporto usato. 

Il programma Omnis3 può essere acquistato in due versioni: 

• Versione Base che permette di creare da soli le applicazioni desidera¬ 
te, a £. 1.500.000+IVA 9% 

• RUNTIME in grado di far girare le applicazioni, senza però poter interve¬ 
nire su di esse, al costo di £. 350.000+IVA 9%. Questa versione, che e- 
siste solo per il Macintosh e non per l'Apple II, può essere utilizzata per 
far girare anche più di una applicazione. 

Entrambe le versioni sono distribuite in Italia dalla PC Personal Compu¬ 
ter di Piacenza (Via Chiapponi, 42), presso la quale è disponibile una li¬ 
nea calda di assistenza telefonica per chiarire ogni problema degli utenti 
(tei.(0523) 20626). 
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una nuova scheda. Modifica consen¬ 
te di eseguire correzioni, sostituzio¬ 
ni o aggiunta di dati in un record pre¬ 
cedentemente selezionato. Cancella 
consente di cancellare dall'archivio la 
scheda selezionata. Stampa serve a 
trasferire su stampante o video le in¬ 
formazioni ricercate. 

Abbiamo detto che è possibile co¬ 
struire un menù personalizzato per 
procedere aH’inserimento dei dati sen¬ 
za passare attraverso il menù OPZIO¬ 
NI. Il vantaggio di poter costruire 
menù su misura è evidente soprattut¬ 
to quando si hanno parecchi formati 
da gestire (moduli, report, criteri di 
ricerca...) che a volte, a causa del no¬ 
me necessariamente abbreviato, non 
sempre sono facilmente identificabi¬ 
li e accessibili in tempi brevi. Inol¬ 
tre con menù su misura ben organiz¬ 
zato è possibile gestire l’applicazio¬ 
ne anche senza saper nulla di Om- 
nis3. 

Menù personalizzati 
di programmazione 

Vediamo in pratica come operare. 
Selezioniamo la voce MENU dal so¬ 
lito menù OPZIONI, e come nei ca¬ 
si precedenti troveremo una finestra 
in cui l'unico bottone attivo è quello 
contraddistinto dalla voce NUOVO 
(figura 7): clicchiamo su di esso e 
diamogli il nome STARTUP. E’ im¬ 
portante che il primo menù creato 
abbia questo nome, in caso contrario 
non sarà possibile da parte di Om- 
nis3 gestire le nostre procedure. 

A questo punto comparirà la fine¬ 
stra del MENU STARTUP in cui si 
possono identificare quattro parti 
(figura 8): una parte descrittiva del 
menù a sinistra, una parte dove sono 
raccolti i comandi al centro, una par¬ 
te di ulteriore dettaglio a destra, ed 
infine in basso il riepilogo dei co¬ 
mandi. 

Questo è un primo esempio di Pro¬ 
grammazione, perchè permette di 
passare da un'attività all’altra. Tutta¬ 
via Omnis3 permette di programma¬ 
re le proprie procedure anche in mo¬ 
di più avanzati: creando bottoni e 
menu diversi e più complessi di quel¬ 
li standard. 

Scegliamo allo scopo la voce MO¬ 
DULI D'INSERIMENTO dal menù 
OPZIONI, e poi selezioniamo dall'e¬ 
lenco che viene prospettato il modu¬ 
lo desiderato. Clicchiamo quindi sul¬ 
la voce SEQUENZE, da cui appare 
la finestra relativa (figura 9): essa 
è suddivisa in due parti principali: 


Fatture e magazzino secondo Omnis3 


Formate 

» del file 

FCLIENT 

com'é al 

26/05/86 





NOME 

TIPO 

LUNGH. 

DECIMALI 

INDICE ? 

L.INDICE 

L . DATI 

1 

CODICE 

Caratt . 

8 


SI 

8 

8 

2 

RAGSOC 

Caratt . 

30 


SI 

10 

30 

3 

INDIRIZ 

Caratt . 

20 


NO 


20 

4 

CAPCITT 

Caratt . 

30 


NO 


30 

5 

PROVIN 

Caratt . 

4 


NO 


4 

6 

PARTIVA 

Caratt . 

11 


NO 


11 

7 

DATAUF 

Data 



NO 


2 

8 

SALDO 

Numero 


0 

NO 


6 

Non vi 

é nessun 

file collegato 





Lunghezza dei dati - 

116 





Occupazione interna - 134 (i campi indice 

contano x2) 



Occupazione per 

1000 record » 193536 bytes 




Formato del file 

FMAGAZZ 

com'é al 

26/05/86 





NOME 

TIPO 

LUNGH . 

DECIMALI 

INDICE ? 

L.INDICE 

L . DATI 

1 

CODMAG 

Caratt. 

8 


SI 

8 

8 

2 

DESCRIZ 

Caratt. 

20 


SI 

20 

20 

3 

PREZZO 

Numero 


0 

NO 


6 

4 

AL IVA 

Numero 


2 

NO 


6 

Non vi 

é nessun 

file collegato 





Lunghezza dei dati 

45 





Occupazione interna « 73 (i campi indice 

contano x2) 



Occupazione per 

1000 record - 137728 bytes 




Formato del file 

FATTURA 

, com'é al 

26/05/86 





NOME 

TIPO 

LUNGH . 

DECIMALI 

INDICE ? 

L.INDICE 

L.DATI 

1 

DATA 

Data 



SI 

2 

2 

2 

NUMERO 

Caratt . 

4 


SI 

4 

4 

3 

IMPORTO 

Numero 


0 

NO 


6 

4 

IVA 

Numero 


0 

NO 


6 

5 

TOTALE 

Numero 


0 

NO 


6 

6 

QUANTIT 

Numero 


0 

NO 


6 

File collegati: 







FCLIENT FMAGAZZ 






Lunghezza dei dati 

43 





Occupazione interna =57 (i campi indice 

contano x2) 



Occupazione per 

1000 record « 139264 bytes 




Modulo 

ECLIENT com'é al 

26/05/86 






FILE 

CAMPO 

VERTICALE ORIZZONTALE ATTRIBUTI 

LUNGH . 

GIUS 


Schermo 1 

1 FCLIENT 

CODICE 

2 

29 

JU 

8 

S 

2 FCLIENT 

RAGSOC 

3 

29 

U 

20 

S 

3 FCLIENT 

INDIRIZ 

4 

29 

U 

20 

s 

4 FCLIENT 

CAPCITT 

5 

29 

U 

30 

s 

5 FCLIENT 

PROVIN 

6 

29 


4 

s 

6 FCLIENT 

PARTIVA 

7 

29 


11 

s 

7 FCLIENT 

DATAUF 

9 

29 

D 

9 

s 

8 FCLIENT 

SALDO 

11 

29 

DVE 

11 

D 

Schermo 2 

1 

#S 

11 

27 


11 

s 

Schermo 4 

1 FATTURA 

IVA 

16 

34 

V 

11 

s 


Sequenze di ECLIENT come sono al 26/05/86 


1 Clienti 


2 Stampa fattura 


allo schermo 2 
3 

Opzioni : Ripristina il record attuale a fine sequenza 

file principale su FATTURA 

Scegli Report RFATTUR 

Scegli Uscita (richiesta) [] 

Pulisci : Files collegati Altri file 
Trova il NUMERO in modo esatto [#S] 

Se Flag Vero 
Ripeti 


(Continua) 
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Mi dia un programma, lo pago tre caffè 



AmPAMANIFESTI 


mensile 


C'era una volta una software 
house che aveva scritto uno splen¬ 
dido programma. Era così bello, 
così utile e così facile da usare 
che, durante la riunione del giove¬ 
dì, i soci decisero di metterlo in 
vendita a 49.990 lire. "Questo pro¬ 
gramma," dissero tutti e tre in co¬ 
ro, "è così bello, così utile e così 
facile da usare che a 49.990 lire 
ne venderemo millanta pezzi, con 
un utile del millantaedue per cen¬ 
to." E poiché l'avevano detto tutti 
e tre in coro, sul verbale della riu¬ 
nione del giovedì scrissero in in¬ 
chiostroverde: " Approvato all'una¬ 
nimità". 

Passato un anno un mese e un 
giorno i tre soci si ritrovarono per 
un’altra riunione del giovedì. "Ai- 
mè, cari soci," disse il socio nu¬ 
mero uno, "non capisco come sia 
potuto succedere, ma devo infor¬ 
marvi che di quel programma così 
bello, utile e facile da usare ne ab¬ 
biamo venduti solo..." Qui il so¬ 
cio numero uno consultò un lun¬ 
ghissimo tabulato, estrasse una 
calcolatrice tascabile, rifece la pun¬ 
ta alla matita con aria pensosa, e 


aggiunse: "...due." Due?, sbotta¬ 
rono in coro il socio numero due 
e il socio numero tre. "Ma com'è 
possibile? Con un packaging così 
accattivante... E con un prezzo co¬ 
sì competitivo?" E poiché a que¬ 
sto punto al coro si aggiunse an¬ 
che il socio numero uno, tutto 
quello che venne detto dopo fu su¬ 
bito scritto in verde sul verbale 


della riunione del giovedì: "Venga 
immediatamente aumentato il 
prezzo a sette milioni, e millanta 
copie le venderemo subito..." 

L'episodio è stato favoleggiato 
per nascondere nomi e cognomi, 
ma è davvero accaduto. Col nuo¬ 
vo prezzo, che nella realtà venne 
quintuplicato, e senza cambiare 
null'altro al prodotto o alla confe- 


Programmi per Apple n 
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zione, in quattro mesi si vendette¬ 
ro 768 pezzi. E non nelle lontane 
Americhe, ma proprio qui, in Ita¬ 
lia. La spiegazione è semplice: se 
questo programma costa così po¬ 
co, ragiona l’utente, non potrà 
mai fare quel che promette. E il ti¬ 
tolare del computer shop pensa: 
se questo programma costa così 
poco, cosa mai ci guadagnerò io a 
spingerlo? 

E’ vero che scrivere software va¬ 
lido costa molto, ma le strade in 
teoria dovrebbero essere due: ven¬ 
derne poche copie ad alto prezzo, 
o venderne molte copie a prezzo 
più accessibile. E quest’ultima do¬ 
vrebbe essere la strategia di marke¬ 
ting più corretta. Senonchè come 
in economia la moneta cattiva 
scaccia quella buona, così l’imma- 
gine di cattiva qualità del software 
a basso costo scoraggia i produtto¬ 
ri seri che vogliano tentare questa 
strada. Poi ci sono le copie abusi¬ 
ve, che tagliano ulteriormente i 
proventi delle software house, e a 
questo punto l'alto prezzo sembra 
diventare la strada obbligata. Ma 
non è anche l'alto prezzo dei pro¬ 
grammi a incoraggiarne le copie? 
Certo. E allora, come uscire da 
questo circolo vizioso? 

Applicando ritiene che aiutare la 
massima possibile diffusione di 
computer e programmi sia un suo 
dovere istituzionale. In questa sua 
vocazione riesce: dei programmi 
di cui si parla sulla rivista si ven¬ 
dono centinaia di copie in più ri¬ 
spetto a quelli (e son pochissimi) 
di cui il giornale non dà notizia. 
Da qui un invito ai produttori: at¬ 
tenzione ai prezzi, alcuni sono 
troppo alti. Ma da qui anche un se¬ 
condo invito, per non vanificare il 
primo, e questa volta agli utenti: 
basso prezzo non è necessariamen¬ 
te sinonimo di cattiva qualità. Ci 
sono sul mercato prodotti di otti¬ 
mo livello che non vanno presi 
sottogamba solo perchè costano 
poco. Se fanno davvero quel che 
promettono, il basso prezzo è so¬ 
lo un vantaggio per l'utente, men¬ 
tre produttori e rivenditori guada¬ 
gneranno sulla quantità. Senza 
contare che di fronte a prezzi più 
accessibili anche il fenomeno del¬ 
la copiatura tenderà a scomparire. 

Del resto che la quantità possa 
contribuire a ridurre i prezzi senza 


incidere negativamente sulla quali¬ 
tà è un fatto così ovvio e acquisi¬ 
to che non occorre dilungarsi a 
spiegarlo. Ma vai la pena di ricor¬ 
darlo nell'annunciare un nuovo 
prodotto (anzi, una triade di nuovi 
prodotti) editi da Editronica, la ca¬ 
sa editrice di Applicando . Avreste 
mai ritenuto possibile un buon 
programma al prezzo di cinque caf¬ 
fè al bar? Cinque ottimi program¬ 
mi al prezzo di una corsa in taxi? 
Ebbene, com’è possibile? Lo dice¬ 
vamo prima, la quantità. 

La triade di nuovi prodotti (in 
edicola quando leggerete queste ri¬ 
ghe) è costituita infatti da Com- 
moDisk, AppleDisk e PcDisk : tre 
mensili di programmi su dischet¬ 
to, distribuiti in 25 mila copie l'u¬ 
no. Chi mai in Italia ha prodotto 
e diffuso 25 mila copie di un di¬ 
schetto? Pensate a quanti dischetti 
fa 75 mila moltiplicato per 12 me¬ 
si, ed ecco spiegato il miracolo. 
Così AppleDisk n°l può contene¬ 
re un programma come "Investi¬ 
re", un consulente finanziario di 
tutto rispetto, o "Dieta", cosa 
mangiare giorno per giorno, che 
in negozio si pagherebbero 200 
mila lire l'uno senza batter ciglio 
(gli altri programmi di AppleDisk 
sono: Automenù, menù su misu¬ 
ra per i tuoi programmi: un'utili¬ 
ty per chi scrive da sè i suoi pro¬ 
grammi; Combat, la battaglia dei 
carri armati: un gioco di guerra si¬ 
mulata; e StampaManifesti, mes¬ 
saggi e slogan grandi come si vuo¬ 
le), e il tutto per 15 mila lire, ap¬ 
punto quanto una corsa in taxi. 

Stesso prezzo ed esempio analo¬ 
go per PcDisk : (per Olivetti, Ibm 
e compatibili) basti pensare che il 
primo numero di questo nuovo 
mensile contiene un programma 
di agenda telefonica che è un au¬ 
tentico data base con venti campi, 
riordinabile su sei, stampabile, e 
che si usa con la stessa interfaccia 
del Lotus 1-2-3 (come dire che in 
entrambi i programmi i comandi 
sono uguali: il programma che 
più gli si avvicina in negozio co¬ 
sta 600 mila lire (gli altri pro¬ 
grammi di PcDisk n°l sono: Sti¬ 
pendio: un calcolatore di netto, 
lordo e costo aziendale; Converti¬ 
tore di ogni misura; Black-Jack; 
Test, misura il tuo coefficiente di 
rischio aziendale). 


■■■■■■■■■■■■■■ 




- la parte superiore composta da una 
lista numerica in cui inserire il tito¬ 
lo dei comandi, a sinistra, ed una li¬ 
sta di istruzioni per ogni comando, a 
destra; 

- la parte inferiore che racchiude tut¬ 
ta una serie di coperazioni delle più 
svariate, e per ognuna delle quali è 
visibile il bottone di selezione. 

Vediamole in dettaglio: 

PULIZIA DATI, è la prima o- 
perazione da compiere quando si in¬ 
tende inserire nuovi dati. 

TROVA/SUCCESS7ETC, è 
il comando per trovare il record pre¬ 
cedente o quello successivo, di trova¬ 
re un record desiderato, di impostare 
dei criteri di ricerca o di selezione. 

MODIFICA/INSERISCI, che 
permette di inserire, modificare ed ag¬ 
giornare i dati contenuti negli ar¬ 
chivi. 

CANCELLA, opera l'eliminazio¬ 
ne del record prescelto dall'archivio. 

STAMPA, con cui è possibile 
inviare alla stampante i dati relativi 
ad un singolo record o a un report 
prescelto. 

RICALCOLA, che permette di 
operare dei ricalcoli in campi nume¬ 
rici. 

CAMBIA SCHERMO, consen¬ 
te di passare da uno schermo all'altro 
del medesimo modulo. 

FILE PRINCIPALE, esegue il 
settaggio delle procedure su un file 
che viene scelto come principale, 
nel caso ve ne siano più d’uno. 

SCEGLI, propone di eseguire u- 
na scelta tra report, criteri di ricerca 
e output d'uscita dei dati (a video, su 
stampante o su un file su disco). 

MESSAGGIO, permette di inse¬ 
rire dei messaggi di lavoro, di confer¬ 
ma o di scelta. 

CALCOLA, opera dei calcoli tra 
campi numerici e non. 

TEST, esegue dei test di control¬ 
lo e verifica sui dati inseriti. 

SE/RIPETI/ETC., sono le 
classiche procedure SE...ALLO- 
R A...IN VECE SE...ALLORA, op¬ 
pure RIPETI...FINO A CHE, ben 
note ad ogni programmatore, in gra¬ 
do di creare dei loop ripetitivi e di 
controllo su determinate procedure. 

CHIAMA/FINE, che permette 
di chiamare una determinata sequen¬ 
za o di uscire da essa. 

Tuttavia in questa fase si possono, 
oltre ai menù, creare dei bottoni, re¬ 
lativi alle procedure stilate; infatti se 
selezioniamo dal menù MODIFICA 
SEQUENZE la voce INFORMA¬ 
ZIONI SUL VIDEO si presenterà u- 
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Stampa record 
Successivo in modo esatto 
Fino a che Flag Falso 
Fine ciclo 


4 

Prepara per Modifica Inserisci [] 
Se Flag Falso 
Fine sequenza 
Fine ciclo 
Chiama sequenza 3 

5 Nuovo Cliente/I 


Pulisci : File principale Files collegati Altri file 
Prepara per Inserimento Inserisci Aggiorna [] 

6 Modifica/M 


Messaggio di SI/NO cicalina Default su SI [Vuoi davvero modificare 
questo Cliente?] 

Se Flag Vero 

Messaggio di OK [Puoi operare le modifiche desiderate] 

Prepara per Modifica Inserisci [] 

Aggiorna 
Fine ciclo 

7 Cancella/C 




i 

r Col. 24 

Riga 4 



Figura 5 


Messaggio di SI/NO Default su SI [Vuoi davvero cancellare questo Cliente?] 
Se Flag Vero 
Cancella 

Pulisci : File principale Files collegati Altri file 
Fine ciclo 

8 Precedente/P 


Precedente 
9 Seguente/S 


Successivo 
10 Cerca/F 


Trova (richiesta) in modo esatto [#S] 
Messaggio di SI/NO cicalina [E' questo ?] 
Se Flag Falso 
Successivo 
Fine ciclo 

19 Stampa record 


* Costruire un modulo di report su misura 

* il nome RCLIENT è riferito al report in questione 
Scegli Report RCLIENT 

Scegli Uscita (richiesta) [] 

* stampante o video oppure uscita a scelta 
Stampa record 
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Successivo 


Schermo 

1 

(Anagrafe 

clienti) Primario 

Bottone 

1 

(Nuovo) Sequenza 5 

Bottone 

2 

(Modifica) 

Sequenza 6 

Bottone 

3 

(Cancella) 

Sequenza 7 

Bottone 

4 

(Preceden . 

) Sequenza 8 

Bottone 

5 

(Seguente) 

Sequenza 9 

Bottone 

6 

(Cerca) Sequenza 10 

Bottone 

7 

(Avanti) 

Sequenza 21 

Bottone 

8 

(Stampa) 

Sequenza 20 

Schermo 

2 

(Stampa fattura) Primario 


Inizia con la sequenza 4 

Bottone 3 (Altra cop) Sequenza 3 


é Rrchlvlo Componi Opzioni Gei Itone Contabile Ritegno 0 modifico i 

Modulo CPROUm Schermo 1 


Descrizione 



Numero 2 Nome norie Lunghezze 00 Decimo!* 



attributi 

® Normale □ Indice unico E Solo maiuscolo 

allinea 

® Sinistra 



O Calcolate □locala □ NegniitH perniarsi 

O assira 



O Messaggio □ Inultlblle □ 2ero musilo nuoto 

□ «/Ricerca □Risultate E Protetto 

O Centro 



Detault e vernice (Il formato t defaultruarlflca) 

| Cancella ) [ «nnulle 1 | ^ 0*C | 



Figura 6 



Modulo EMAGAZZ com'é al 26/05/86 

FILE CAMPO VERTICALE ORIZZONTALE ATTRIBUTI LUNGH. GIUS 


Schermo 1 


1 

FMAGAZZ CODMAG 

6 

29 

FJU 

8 

S 

2 

FMAGAZZ DESCRIZ 

7 

29 

FJU 

20 

s 

3 

FMAGAZZ PREZZO 

8 

29 

V 

11 

D 

4 

FMAGAZZ ALIVA 

9 

29 

V 

5 

D 


Sequenze di EMAGAZZ come sono al 26/05/86 
1 Magazzino 


2 Nuovo Articolo/I 


Pulisci : File principale Files collegati Altri file 
Prepara per Inserimento Inserisci Aggiorna [] 

3 Modifica/M (Continua) 


na finestra come in figura 10 , do¬ 
ve nella parte superiore vi sono dodi¬ 
ci bottoni che consentono di selezio¬ 
nare, tra i 12 a disposizione, lo 
schermo su cui si intende lavorare. 

Una volta selezionato lo schermo 
possiamo definirlo come PRIMA¬ 
RIO (il quadratino relativo seleziona¬ 
to) o come SECONDARIO, cioè in 
dipendenza di altri (il quadratino rela¬ 
tivo bianco). 

Inoltre si può dare un nome allo 
schermo, attivando con un clic del 
mouse la voce TITOLO. 

Nella parte inferiore, infine, vi è 
la possibilità di scrivere 8 comandi 
che richiamano altrettante sequenze 
interessate; quando il lavoro è con¬ 
cluso si può mandar via la finestra 
cliccando nel quadratino bianco in al¬ 
tro a sinistra sulla barra di titolo. 

Report di stampa 
e criteri di ricerca 

Per terminare il lavoro manca sola¬ 
mente la preparazione dei Report di 
stampa, e poi quella dei Criteri di ri¬ 
cerca. 

Nel primo caso bisogna scegliere 
la voce REPORT dal solito menù O- 
PZIONI, per cui bisognerà cliccare 
sul bottone NUOVO e dare un nome 
al nostro tipo di report, secondo le 
specifiche viste nel caso dei File o 
dei Moduli (figura 11). Dopo aver 
confermato con OK comparirà una fi¬ 
nestra di lavoro molto simile a quel¬ 
la della costruzione dei moduli d'inse¬ 
rimento. A lato della finestra vi so¬ 
no due bottoni: 

CAMPO, da cui si ottiene lo 
stesso effetto dei moduli d'inseri¬ 
mento 

SEZIONE, che permette di strut¬ 
turare le varie sezioni di un report: 
intestazione, dettaglio dell'intestazio¬ 
ne, dettaglio dei campi, subtotali, to¬ 
tali e fine del report. 

In basso a destra, nel riquadro, vie¬ 
ne segnalata la posizione del curso¬ 
re; e in più si può notare anche una 
finestra di scorrimento orizzontale, 
infatti si possono disporre i campi 
su ben 240 colonne. 

In questa fase è possibile trovare 
dei comandi molto utili: 

- la sequenza #P permette di numera¬ 
re le pagine da stampare 

- la sequenza #D stampa in automati¬ 
co la data contenuta nell’orologio di 
Macintosh 

- la sequenza #R consente di numera¬ 
re e stampare i vari record 

Infine nel menù MODIFICA RE- 
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High level 
Printer. 


Le stampe più importanti 
che escono dal tuo Personal 
devono farsi vedere molto 
e sentire poco. 




Hewlett-Packard, all’avanguardia 
nell’elettronica mondiale e leader nel settore 
delle stampanti per Personal Computer, ha 
creato dei veri e propri sistemi di scrittura 
che rivoluzionano le tecnologie fin qui 
adottate. Come la stampante professionale 
LaserJet, che introduce per la prima volta 
tutti i vantaggi della stampa laser: caratteri e 
grafica di alta qualità, fun¬ 
zionamento silenzioso, 
affidabilità. LaserJet sta 
su una scrivania; è in 
grado di stampare 
otto pagine al 
minuto, con più 
tipi di caratteri 
nella medesima 
pagina. E come la 
stampante ThinkJet che, grazie 
alla sua tecnologia a getto di inchiostro, 
stampa velocemente e silenziosamente let¬ 
tere e grafici. Potrai usare le stampanti HP 
col tuo Personal, qualunque esso sia. 

Infatti sono compatibili con tutti i Personal 
più diffusi. Se vuoi saperne di più, vai da un 
Rivenditore Autorizzato, lo 
trovi sulle Pagine Gialle alla 
voce Personal Computer, 
oppure ti basterà compilare 
in ogni sua parte l’accluso 
coupon: 

riceverai, senza impegno, 
una documentazione detta¬ 
gliata sulle stampanti HP 
e tutte le loro possibilità 
d’impiego. 


Hewlett-Packard Italiana S.p.A. 

Via G. Di Vittorio 9 - 20063 Cernusco Sul Naviglio 
Milano - Tel. 02/923691 

vuoi saperne di più sulle stampanti HP invia questo 

I tagliando a Hewlett-Packard Italiana S.p.A. 

Marketing CommunicationC.P, 10190,20100 Milano. 

| Nome e Cognome_£ | 


Società _ 


Indirizzo _ 


HP'Soluzioni produttive 

Whpt HEWLETT 
mLrJk PACKARD 
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Messaggio di SI/NO Default su SI [Vuoi davvero modificare 
quest'articolo di magazzino?] 

Se Flag Vero 

Messaggio di OK [Puoi operare le modifiche desiderate] 
Prepara per Modifica Inserisci [] 

Aggiorna 
Fine ciclo 


4 Cancella/C 


Messaggio di SI/NO Default su SI [Vuoi davvero cancellare quest'articolo?] 
Se Flag Vero 
Cancella 

Pulisci : File principale Files collegati Altri file 
Fine ciclo 


5 Precedente/P 
Precedente 

6 Seguente/S 


Successivo 
7 Cerca/F 


Trova (richiesta) [#S] 

Se Flag Vero 
Successivo 
Fine ciclo 

Schermo 1 (Gestione magazzino) Primario 


Bottone 1 
Bottone 2 
Bottone 3 
Bottone 4 
Bottone 5 
Bottone 6 


(Nuovo Art) Sequenza 2 
(Modifica) Sequenza 3 
(Cancella) Sequenza 4 
(Preceden.) Sequenza 5 
(Seguente) Sequenza 6 
(Cerca) Sequenza 7 



Schermo 2 () Primario 


Modulo EFATTUR com'é al 26/05/86 

FILE CAMPO VERTICALE ORIZZONTALE 

ATTRIBUTI 

LUNGH. 

GIUS 

Schermo 

1 






1 

FATTURA DATA 

3 

31 


9 

S 

Def: ver 

♦D 






2 

FATTURA NUMERO 

4 

31 


4 

D 

3 

FCLIENT CODICE 

6 

31 

FU 

8 

S 

4 

FCLIENT RAGSOC 

7 

31 

L 

20 

S 

5 

FMAGAZZ CODMAG 

9 

31 

FU 

8 

S 

6 

FMAGAZZ DESCRIZ 

10 

31 

L 

20 

S 

7 

FMAGAZZ PREZZO 

11 

31 

LV 

11 

D 

8 

FMAGAZZ ALIVA 

12 

31 

LV 

5 

D 

9 

FATTURA QUANTIT 

13 

31 

V 

5 

D 

10 

FATTURA IMPORTO 

15 

31 

DV 

11 

D 

11 

FATTURA IVA 

16 

31 

DV 

11 

D 

12 

FATTURA TOTALE 

17 

31 

DV 

11 

D 

13 


20 

11 

M 

40 

C 

Sequenze 

di EFATTUR come 

sono al 

26/05/86 





1 Archivio Fatture 


2 Nuova fattura 


Pulisci : File principale Files collegati Altri file 
Prepara per Inserimento Inserisci Aggiorna [] 

Se Flag Falso 
Fine sequenza 
Fine ciclo 

Calcola IMPORTO é QUANTIT*PREZZO 
Calcola IVA é IMPORTO*(ALIVA/100) 

Calcola TOTALE è IMPORTO+IVA 
Calcola SALDO è SALDO+TOTALE 
Calcola DATAUF é DATA 

3 Modifica 


Prepara per Modifica Inserisci Aggiorna [Le modifiche aggiorneranno l'archivio!!] 
Calcola SALDO è SALDO-TOTALE 

Prepara per Modifica Inserisci Aggiorna [] 

Calcola IMPORTO é QUANTIT‘PREZZO 
Calcola IVA é IMPORTO*(ALIVA/100) 

Calcola TOTALE é IMPORTO+IVA 
Calcola SALDO é SALDO+TOTALE 
Calcola DATAUF é DATA 

4 Cancella 


Messaggio di SI/NO cicalina Default su SI 
[Vuoi davvero cancellare questa riga di fattura ?] 

Se Flag Vero 

Prepara per Modifica 

Calcola CAPCITT é CAPCITT-TOTALE 

Aggiorna 

Cancella 

Pulisci : File principale Files collegati Altri file 
Fine ciclo 

5 Precedente 


(Continua) 


PORT vi sono delle opzioni che con¬ 
sentono di migliorare e potenziare il 
report da stampare: 

PARAMETRI, che dà accesso a 
varie opzioni sul tipo e il formato di 
stampa quali: numero di colonne per 
riga, quante righe bianche in alto, in 
basso e quanti spazi bianchi a sini¬ 
stra, se si vuole stampare con caratte¬ 
ri particolari o con i caratteri standar- 
d della stampante (valore di default), 
se vi sono particolari criteri di ri¬ 
cerca. 

ORDINAMENTO, consente di 
eseguire ordinamenti alfabetici su 
più campi. 

VERIFICA DELLE SEZIO¬ 
NI, controlla se sono state usate cor¬ 
rettamente tutte le sezioni del report. 

L'ultima fatica, infine, è quella di 
creare dei criteri di selezione dei dati. 
Infatti se richiediamo la stampa di 
un report senza criteri di ricerca o se¬ 
lezione, vengono stampati tutti i re¬ 
cord dal primo all'ultimo. Invece uti¬ 
lizzando appositi formati di ricerca 
si è in grado di scegliere i dati da 
stampare tra tutti quelli contenuti in 
archivio. Ad esempio, può capitare 
di dover stampare solo i clienti di u- 
na determinata zona, aventi uricerto 
fatturato ed un certo insoluto: ecco 
che appropriati criteri di selezione ri¬ 
solvono il problema. Per impostare 
tali criteri, per prima cosa bisogna 
selezionare la voce RICERCHE dal 
solito menù opzioni, e come abbia¬ 
mo visto già altre volte, cliccare sul 
bottone NUOVO e dare un nome 
che sia lungo al massimo sette carat¬ 
teri e che contenga solo lettere e nu¬ 
meri. 

A questo punto confermiamo cuc¬ 
cando su OK, e si presenta una nuo¬ 
va finestra strutturata come segue: 

- La prima parte in alto contiene le 
RIGHE DI RICERCA. 

- La seconda parte contiene i TIPI 
DI CONFRONTO. 

- La terza parte contiene i PARA¬ 
METRI DI RICERCA. 

Ogni riga del formato di ricerca e- 
segue una ricerca elementare, in base 
ai tipi confronto desiderati ed ai valo¬ 
ri da ricercare. 

Per far ciò bisogna cliccare vicino 
alla voce CAMPO, ed inserire il no¬ 
me del campo in cui eseguire la ricer¬ 
ca, e poi schiacciando il tasto TAB 
spostarsi alla voce successiva VA¬ 
LORE in cui inserire il valore, paro¬ 
la o numero, su cui operare la sele¬ 
zione. Infine scelto il tipo confronto 
(Compreso, Che inizia con, Che 
contiene. Maggiore, Minore, Ugua- 


26 


















































High level 
Plotter. 




Se vuoi informazioni rapide 
e concise, dai al tuo Personal 
lo strumento più efficace 
per esprimersi. 

Più sono complesse le decisioni 
che devi documentare, più diventa 
importante che tutte le informazioni 
siano immediatamente recepibili da 
chi lavora con te. 

Per questo Hewlett-Packard, all’avan¬ 
guardia nell’elettronica mondiale, ti 
propone i suoi plotter, che organizzano 
fatti e cifre complesse in grafici 
colorati, facili da comprendere. 

Con i plotter HP tendenze di merca¬ 
to, analisi di prodotto, previsioni fi¬ 
nanziarie prendono corpo in diagrammi 
precisi, curve colorate, istogrammi, grafici 
circolari, accelerano i tuoi processi 
è decisionali e rendono le tue presentazioni, 

l meeting, rapporti, più incisivi ed efficaci. 

; Troverai i plotter HP in varie versioni: da 2 

< a 8 penne, nei formati UNI A3 e A4: mentre 
per il disegno tecnico e la progettazione 
sono disponibili i due formati AO e Al. 

E potrai usarli col tuo Personal, qualunque 
esso sia, infatti i nostri plotter sono 
compatibili con i più diffusi 

Personal Computer. 

Se vuoi saperne di più, 
vai da un Rivenditore 
Autorizzato, lo trovi sulle 
Pagine Gialle alla voce 
Personal Computer, oppu¬ 
re, ti basterà compilare in 
ogni sua parte l’accluso 
coupon: riceverai, senza 
impegno, una documenta- 
— zióne dettagliata sui 

plotter HP e il loro impiego 


■ in .» 


Hewlett-Packard Italiana S.p A 

Via G. Di Vittorio 9 - 20063 Cernusco Sul Naviglio 

Milano-Tel. 02/923691 


Se vuoi saperne di più sui Plotter HP invia questo tagliando 
a Hewlett-Packard Italiana S.p.A. 

Marketing Communication C.P. 10190,20100 Milano. 

Nome e Cognome_h 

Società_ 


Indirizzo. 


HP-soluzioni produttive 
hp HEWLETT 
T PACKARD 














le a, Maggiore-uguale, Minore-ugua¬ 
le) la nostra selezione è pronta. 

In un formato di ricerca si posso¬ 


no utilizzare sino a cinquanta righe 
di ricerca, per cui le ricerche gestibi¬ 
li sono veramente molto complesse. 


Precedente 

6 Seguente 
Successivo 

7 Aggiungi 

Prepara per Inserire coi valori attuali 
Se Flag Falso 
Fine sequenza 
Fine ciclo 

Calcola IMPORTO é QUANTIT*PREZZO 
Calcola IVA é IMPORTO*(ALIVA/100) 
Calcola TOTALE è IMPORTO+IVA 
Calcola SALDO é SALDO+TOTALE 
Aggiorna 

Schermo 1 (Fatturazione) Primario 

Bottone 1 (Aggiungi) Sequenza 7 

Bottone 2 (Nuova) Sequenza 2 
Bottone 3 (Modifica) Sequenza 3 

Bottone 4 (Cancella) Sequenza 4 

Bottone 5 (Preceden.) Sequenza 5 
Bottone 6 (Prossima) Sequenza 6 


Inserisci [] 


Opzioni Modifica m 


Otrllone Coniati lo 


Nomo IEPrOURU 

Rigo 3 

Rigo 4 

Rigo 5 


Schermo numero i 

* 

li! ! 

11| i j 

o « o o 5 


Utenti autorizzati 12315679 


Figura 8 


Formato 

del Report RFATTUR 

FILE CAMPO 

com'é 

RIGA 

al 26/05/86 

POSIZIONE 

ATTRIBUTI 

LUNGH . 

GIUS 

Titolo dettaglio 






Non lasciare spazi 






701 

FCLIENT RAGSOC 

6 

30 


20 

L 

1001 

FATTURA DATA 

9 

29 


9 

L 

1002 

#15 

9 

14 

+ 

5 

R 

Formula 

CON('0000',NUMERO) 





1003 

FATTURA NUMERO 

9 

13 

I 

1 

R 

Dettaglio 






Non lasciare spazi 






1501 

FATTURA NUMERO 

1 

1 

I 

1 

R 

1502 

FCLIENT CODICE 

1 

2 

I 

1 

L 

1503 

FMAGAZZ CODMAG 

1 

3 


8 

L 

1504 

FMAGAZZ DESCRIZ 

1 

12 


20 

L 

1505 

FMAGAZZ PREZZO 

1 

33 


11 

R 

1506 

FMAGAZZ ALIVA 

1 

45 


5 

R 

1507 

FATTURA QUANTIT 

1 

51 


5 

R 

1508 

FATTURA IMPORTO 

1 

57 


11 

R 

1509 

FATTURA IVA 

1 

69 


9 

R 

1510 

FATTURA TOTALE 

1 

79 


11 

R 

Subtotali da #1 a #9 e Totali 





Stampa a 

i 1 righe dal fondo 






1701 

FATTURA IMPORTO 

1 

57 

T, 

11 

R 

1702 

FATTURA IVA 

1 

69 

T, 

9 

R 

1703 

FATTURA TOTALE 

1 

79 

T, 

11 

R 

Formato 

del Report RCLIENT 

com'é 

al 26/05/86 





FILE CAMPO 

RIGA 

POSIZIONE 

ATTRIBUTI 

LUNGH. 

GIUS 

Dettaglio 






Non lasciare spazi 






201 

FCLIENT CODICE 

1 

20 


8 

L 

301 

FCLIENT RAGSOC 

2 

20 


20 

L 

401 

FCLIENT CAPCITT 

3 

20 

' 

11 

R 

Formato 

del Menu STARTUP com'é al 26/05/86 




TESTO 

COMANDI 


OPZIONI 




Titolo Menu 
Fatturazione 
Righe menu 
Magazzino 
Archivio Clienti 
Archivio Fatture 

Stampa fattura 


Apri archivio 

Inserimento 'EMAGAZZ' 
Inserimento 'ECLIENT' 
Inserimento * EFATTUR' 

Inserimento 'ECLIENT' 


Schermo numero 1 
Schermo numero 1 
Schermo numero 1 

Schermo numero 2 


Tuttavia bisogna porre qualche atten¬ 
zione in casi particolari: infatti, poi¬ 
ché in un formato di ricerca, sempre 
ed in ogni caso, il confronto avviene 
tra un campo ed un valore, nel caso 
in cui si voglia operare un confronto 
tra un campo col valore di un altro 
campo, si deve mettere quest’ultimo 
tra due punti e virgola (esempio: 
CITTA=;CITTA2;). 

Un esempio pratico: 
gestione e fatture 

Vediamo in pratica come risolvere 
con Omnis3 un problema di Fattura¬ 
zione con annessa gestione Magazzi¬ 
no e gestione Clienti. E’ questo il 
classico programma reperibile sul 
mercato a non meno di 2-3 milioni 
di lire, che proprio a dimostrazione 
dei miracoli possibili grazie a Om- 
nis3, Applicando è lieto di poter of¬ 
frire su dischetto ai suoi lettori, così 
com'è qui descritto (anzi, con molte 
opzioni in più), già pronto per l’u¬ 
so, a un decimo di tale prezzo: 250 
mila lire più Iva (per farlo girare oc¬ 
correrà o una copia originale del pro¬ 
gramma Omnis3, o il RUNTIME, u- 


é Rrchiuio Componi Opzioni Seitione Contabile Modifica sequenze 


iUI^HEBBSSi Sequt 

òj Cornano! 

ò 

j 





4 

5 

6 



* 


a 

9 

10 





11 




2 

O Tr*u e/s ucces*. Zete 

O Oleate ole 

O Messaggio 


O Modlflcn/lnserlscl 

O Cambia scherme 

O Calcola 


O Cancella 

O file principale 

Olest 


O Stampa 

O Scegli 

OSe/Ripeti/eie 


O Pulizie dall 

O Opzioni 

O Chlame/flne 



* Rrchiuio Componi nozioni Bestione cantami* Modifica sequenze 


Sequenze del modulo EPR0URI 

? 

5 

■ Informazioni sul video di CPROUfll ■■■MMÉMa 

Schermi O00©00000 ©(LLIClD 

Primari H00000B0EEE0 

Tllela GESTIONE BMflGRRF 1CR 

Inizia con la sequenza * 

Definizione Bottoni 

Tetto Sequenza Tetto Sequenza 

1 INSERISCI 2 5 STflhPB 7 

Z CSMCELLR 4 « CERCA 9 

3 nOOIFICR 6 7 

4 TROUfl a I 
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tilizzabile anche per altre applicazio¬ 
ni, ed eventualmente ordinabile diret¬ 
tamente ad Editronica con il taglian¬ 
do di pag.29). Nella tabella da 
pag.21 pubblichiamo il listato se¬ 
condo Omnis di tutte le procedure. 

Per la preparazione dell’applicazio¬ 
ne per prima cosa sono stati struttu¬ 
rati i 3 file su cui si intendeva lavo¬ 
rare: 

• FMAGAZZ: Archìvio del ma¬ 
gazzino 

• FCLIENTI: Archivio dei Clienti 

• FATTURA: Archivio delle fatture, 
collegato ai primi due; ovvero può 
andare a prendere i dati dagli altri 
due archivi e mescolarli e usarli a 
piacimento. 

In ogni archivio vi sono almeno 
due campi indicizzati e questo per 
consentire una più veloce ricerca ed 
ordinamento dei dati. 

Strutturati gli archivi, si è procedu¬ 
to a strutturare i moduli con le relati¬ 
ve sequenze. 

La parte più complessa è quella re¬ 
lativa alla parte di calcolo (Saldo, 
Imponibile, IVA, Totale), soprattut¬ 
to nei casi di modifica o peggio di 
cancellazione di dati contabili; ma 
come si vede dal listato il problema 
è stato risolto brillantemente con al¬ 
cune condizioni di verifica sull'esat¬ 
tezza del calcolo sia in fase di modifi¬ 
ca che in fase di cancellazione di un 
dato: le istruzioni sono molto sem¬ 
plici, chiare e comprensibili, anche 
a chi non possiede nozioni di pro¬ 
grammazione. 

E’ opportuno notare come nel mo¬ 
dulo EFATTUR, relativo alla fattura 
da stampare, il file FATTURE sia 
collegato sia a quello FMAGAZZ 
sia a quello FCLIENT; di conseguen¬ 
za si possono prelevare dati dagli al¬ 
tri due archivi in modo compieta- 
mente automatico. 

Un'altra caratteristica risiede nel 
fatto che per ogni fattura, ogni riga 
dì fatturazione è un singolo record le¬ 
gato alle altre eventuali righe: in tal 
modo la ricerca della riga da modifi- 
careocancellarediventa estremamen¬ 
te rapida. 

Poi si provveduto a strutturare i re- 
port di stampa relativamente alle fat¬ 
ture, al tabulato dei clienti e a quello 
del magazzino, anche qui in modo ra¬ 
pido e semplice. 

Infine l’ultima fatica è stata quella 
di creare un menù automatico (il fa¬ 
moso StartUp), in grado di far entra¬ 
re nella procedura desiderata senza 
dover passare attraverso il menù O- 
PZIONI tutte le volte. 

Alfonso Scoppetta 



Tre applicazioni pronte per l'uso 

Da questo numero Applicando metterà a disposizione dei lettori una serie di 
applicazioni già pronte, preparate con OMNIS3, e che toccheranno i più sva¬ 
riati campi. Ecco alcuni esempi: Fatturazione e Magazzino, Gestione Negozi 
di Ottica, Preventivazione (per Ingegneri Edili), Portafoglio Clienti (in abbi¬ 
namento con la Fatturazione), Gestione Agenti, Agenda Personale, Gestione 
Conto Corrente. Saranno tutte offerte a basso prezzo, e funzioneranno con il 
RUNTIME di Omnis3, che acquistato una volta può essere poi usato anche 
con più di una applicazione. Ovviamente chi possiede il programma Omnis3 
potrà fare a meno di acquistare il RUNTIME, che può essere richiesto ai mi¬ 
gliori computer shop o direttamente a Editronica insieme alle applicazioni, 
utilizzando il tagliando di questa pagina. 

Ecco le applicazioni di questo mese: 

FATTURAZIONE E MAGAZZINO 

Questa applicazione (è quella spiegata in dettaglio nelle pagine precedenti, 
ma con molte opzioni in più) è stata approntata per chi ha l'esigenza di do¬ 
ver stampare molte fatture e magari ripetitivamente, andando a pescare i dati 
da un magazzino per quanto riguarda gli oggetti o le prestazioni vendute, e 
da un archivio clienti per ottenere in automatico i dati anagrafici di quest'ul- 
timi. La procedura permette la personalizzazione della stampa delle fatture. 
Funziona sia su Macintosh 512K sia con Macintosh Plus, con doppio drive e 
stampante ImageWriter. Lire 250 mila (più Iva 9%). 

PREVENTIVAZIONE 

Questa applicazione è stata studiata per chi ha l'esigenza di una gestione 
del magazzino molto ampia e complessa. Infatti si possono gestire procedure 
come il carico e lo scarico automatico dal magazzino, il controllo delle mer¬ 
ci a stock, l'inventario di magazzino con la relativa movimentazione, le chiu¬ 
sure periodiche e annuali di tali movimenti, la gestione dell'elenco Clienti e 
Fornitori, ed infine la gestione di preventivi e di commesse di vendita o 
acquisto. E' una procedura molto complessa ma nello stesso tempo estrema- 
mente facile da usare grazie anche ad una serie di indicazioni a video che per¬ 
mettono un uso guidato dell’applicazione; sicuramente si rivela un valido stru¬ 
mento nella gestione di un magazzino anche molto complesso, estremamente 
valido e professionale. Può funzionare sia con il Macintosh da 512K che con 
il Plus, con ImageWriter, ma si consiglia l'uso di un Hard-Disk o di drive da 
800K per la registrazione dei dati. Lire 250 mila (più Iva 9%). 

GESTIONE APPUNTAMENTI 

Serve per automatizzare e gestire in maniera rapida ed efficace gli impegni 
lavorativi nell'arco della giornata. Gli appuntamenti vengono suddivi per 
Clienti, Fornitori, Meeting interni all'ufficio ed impegni personali. E' possi¬ 
bile effettuare ricerche di appuntamenti nell'arco di un giorno, o di una setti¬ 
mana, o di un mese. E' un ottimo complemento alle due procedure precedente- 
mente descritte. Funziona con Macintosh 512K o Plus con doppio drive e 
ImageWriter . Lire 150 mila (più Iva 9%). 

Per ricevere le applicazioni 0mnis3 su elencate basta compilare e spedire 
subito questo tagliando a Editronica Srl, Corso Monforte 39, 20122 Milano, 
con un ✓ nelle □ adeguate. 


Speditemi subito le seguenti applicazioni Omnis3: 

C5 FATTURAZIONE E MAGAZZINO (lire 272.500, Iva e sped.comprese) 
O PREVENTIVAZIONE (lire 272.500, Iva e spedizione comprese) 

C3 GESTIONE APPUNTAMENTI (lire 163.500, Iva e spedizione comprese) 

□ Desidero il RUNTIME di Omnis3 (lire 381.500, Iva e sped. comprese) 

□ Accludo assegno non trasf. intestato a Editronica Srl di lire. 

C3 Accludo ricevuta di versamento di lire .sul c/c 

postale n. 19740208 intestato Editronica Srl. 

□ Desidero fattura. Il mio Codice fiscale/Partita Iva è: . 

Cognome.Nome. 

Indirizzo... 

Cap.Città.Prov. 
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Acquistare con il leasing? Vediamo da vicino quali sono i meccanismi 
che regolano, in termini di matematica finanziaria, il calcolo degli interessi. 
Si tratta però di un'impresa complicata. Ma con Multiplan... 


Quanto costa 
spender meno 


Che il leasing convenga, soprattut¬ 
to per certe categorie di reddito, è co¬ 
sa nota; questa convenienza, però, 
non viene mai quantificata se non in 
modo alquanto vago, poiché non è 
facile calcolare, di fronte ai dati di 
un contratto di leasing - prima rata, 
rate successive, costo del riscatto, du¬ 
rata e periodicità del contratto - quale 
sia il reale tasso di interesse applica¬ 
to dalla società di leasing. 

A questo interrogativo, invece, si 
può dare una pronta e facile risposta 
con il soccorso del programma adat¬ 
to, che può essere predisposto con 
l’ausilio del Multiplan. 

Prima di tutto occorre analizzare il 
programma dal punto di vista finan¬ 
ziario. Supponete di acquistare un au¬ 
tomezzo, o una macchina utensile, 
del valore di 25 milioni di lire, prez¬ 
zo che paghereste acquistando in con¬ 
tanti. Vi rivolgete invece a una so¬ 
cietà, per stipulare un contratto di 
leasing, e la società vi propone le se¬ 
guenti condizioni: 

• prima rata L. 3.000.00; 

• n. 29 rate mensile di L. 1.000.000 
cad; 

• importo del riscatto pari al 5% del 
valore del bene, da eseguire al 30° 
mese dalla stipula del contratto. 

Per comprendere più facilmente co¬ 
me si sviluppa l’aspetto finanziario 
dell'operazione, potete far riferimen¬ 
to all’asse dei tempi riportata nella 
figura 1. Il punto 0, indicato sul¬ 
l'asse dei tempi, rappresenta il mo¬ 
mento in cui viene stipulato il con¬ 
tratto di leasing, e quindi il momen¬ 
to in cui ha inizio l'operazione finan¬ 
ziaria di finanziamento. La prima 
considerazione da effettuare è che 
l'importo finanziario della società è 
di L. 22.000.000. 

Infatti 3.000.000 vengono corri¬ 
sposti all'atto della stipula del con¬ 


tratto, con la conseguenza che la so¬ 
cietà di leasing, per acquistare il be¬ 
ne concesso in locazione finanziaria, 
deve anticipare solo la differenza tra 
il costo del bene, pari a 25 milioni 
di lire) e l'anticipo corrisposto (L. 
3.000.000). Questo anticipo, a se¬ 
conda della formulazione adottata dai 
contratti, viene qualificato sotto for¬ 
ma di prima rata, di rate anticipate o 
di deposito cauzionale. 



E 


Come si rimborsa 
il prestito 

Ora che è stato determinato ram¬ 
mentare dell'importo finanziato dalla 
società di leasing, analizziamo le 
modalità di rimborso del prestito. In 
base alle condizioni contrattuali so¬ 
pra riportate, risulta che il rimborso 
avverrà mediante la corresponsione 
di 29 rate mensili, di uguale impor¬ 
to, e uno sguardo all'asse dei tempi 
rivela che il momento (1) rappresen¬ 
ta il momento del pagamento della 
prima rata, mentre il momento (n) 
quello del pagamento dell'ultima. 

Il punto F dell'asse dei tempi rap¬ 
presenta il momento in cui ha termi¬ 
ne l'operazione di finanziamento e 
viene eseguita l'operazione di riscat¬ 
to, mediante il pagamento di L. 
1.250.000, pari al 5% del valore del 
bene. Complessivamente, relativa¬ 
mente al contratto stipulato, verran¬ 
no corrisposte: 


□□□□□□□□□□□□□□a 
□ □□□□□□□□□□□□cu 
□□□□□□□□□□□□□a 





• L. 3.000.000 per il pagamento del¬ 
la prima rata, a titolo di anticipo; 

• L. 29.000.000 per il pagamento 
delle 29 rate previste dal contratto; 

• L. 1.250.000 per il pagamento del 
prezzo di riscatto. 

A fronte di un finanziamento di L. 
22.000.000 (pari a L.25.000.000 - 
L. 3.000.000), dunque, sono state 
corrisposte L. 30.250.000 (pari a L. 
29.000.000 + L. 1.250.000). Di que¬ 
ste, L. 22.000.000 rappresentano la 
restituzione del capitale anticipato 
dalla società di leasing per l'acquisto 
del bene oggetto del contratto; e L. 
8.250.000 costituiscono i relativi in¬ 
teressi. 
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La convenienza 
conti alla mano 

A questo punto la domanda da por¬ 
si è la seguente: quale tasso di inte¬ 
resse corrisponde all’importo di L. 
8.250.000, corrisposto a tale titolo 
alla società di leasing durante la dura¬ 
ta del contratto? 

La risposta trova agevole soluzio¬ 
ne applicando alcune nozioni di ma¬ 
tematica finanziaria. Prima di tutto 
occorre osservare che le rate che so¬ 
no state pagate non sono altro che i 
valori di una rendita costante della 
durata di (n) periodi, nella fattispecie 
n. 29 periodi. La formula matemati¬ 
ca (1F) per determinare il capitale i- 
niziale (C.I.ra) necessario per costi¬ 
tuire una rendita è visibile in figu¬ 
ra 2; in questa formula: 

• C.Lra = importo del capitale finan¬ 
ziato dalla società di leasing; 

• R = importo della rata costante pa¬ 
gata mensilmente alla società di lea¬ 
sing; 

• ì = tasso di interesse mensile appli¬ 
cato dalla società di leasing; 

• n = numero delle rate pagate alla 
società di leasing mensilmente. 


• i = tasso di interesse mensile appli¬ 
cato dalla società di leasing; 

• r = numero di mesi trascorsi tra la 
stipula del contratto di leasing e il 
pagamento del riscatto. 

A questo punto è opportuno fare 
un inciso: i valori di (n) e di (r) so¬ 
no determinati in base a un uguale 
intervallo di tempo: se l'intervallo di 
tempo per (n) è il mese, (r) andrà de¬ 
terminato in mesi; se l'intervallo di 
tempo per (n) è il trimestre, (r) andrà 
determinato in trimestri. 

Precisate le formule utili per la de¬ 
terminazione dei valori attinenti il 
contratto di leasing, osservate la fi¬ 
gura 4. La somma dei due valori at¬ 
tuali - del valore attuale delle rate e 
del valore attuale del riscatto - è u- 
guale all'importo finanziato, e conse¬ 
guentemente, sommando le due for¬ 
mule (1F + 2F) si ottiene la formu¬ 
la di figura 5. 


Multiplan: 

la parola al computer 

Questi tentativi possono essere u- 
tilmente e velocemente eseguiti da 
Multiplan con il procedimento itera¬ 
tivo, impostato in modo che il pro¬ 
gramma automaticamente calcoli la 
formula con prove successive, par¬ 
tendo da valori di (i) bassi e incre¬ 
mentandoli a ogni iterazione in mo¬ 
do tale che solo quando viene soddi¬ 
sfatta l'uguaglianza prevista il pro¬ 
cesso iterativo si arresti. Per conse¬ 
guire lo scopo basta impostare le tre 
formule riportate in figura 6. 

La prima lancia l’iterazione, ini¬ 
ziando da un valore di (i) = 0,5, e in¬ 
crementandolo dello 0,02 a ogni ite¬ 
razione. La seconda , che è collegata 
alla prima con i valori di (i) generati 
dal procedimento iterativo, fa sì che 
l'iterazione si arresti quando viene 



soddisfatta la diseguaglianza eviden¬ 
ziata dalla formula sopra indicata. 
Per attivare il procedimento iterativo 
la cella che accoglie la formula pre¬ 
detta deve essere previamente selezio¬ 
nata con Set Completion Test com- 
mand e con Iterate command. 



Occorre anche considerare che al 
termine del contratto è previsto il 
versamento di un ulteriore importo a 
titolo di riscatto del bene. E' infatti 
con l'operazione di riscatto che il be¬ 
ne diventa di proprietà del cliente. 

L'importo del riscatto viene versa¬ 
to dopo (r) mesi: occorre determinare 
quindi il valore attuale dell'importo 
dovuto a titolo di riscatto, riportan¬ 
do il valore al momento della stipu¬ 
la del contratto. Il valore in questio¬ 
ne (V.Lrisc.) è calcolabile mediante 
l'applicazione della formula di mate¬ 
matica finanziaria (2F) visibile in fi¬ 
gura 3, dove: 

* C.Lrisc. = valore attuale del riscat¬ 
to che viene pagato al termine del 
contratto; 


C.l. = C.l. = 16.500.000 

ra rise. 

Figura 3 


• Risc. = valore del riscatto che, nel 
caso in esempio, è pari al 5% del va¬ 
lore del bene preso in leasing; 


I dati della formula sono tutti no¬ 
ti, a eccezione del tasso di interesse. 
Infatti: 

• R. = 1.000.000 

• n = 29 

• Risc. = 1.250.000 

• r = 30 

Non resta quindi che risolvere l'e¬ 
quazione sopra indicata, ricercando 
per quale valore di (i), tasso di inte¬ 
resse, viene soddisfatta l'equazione. 
A questo punto il problema consiste 
nel fatto che non è possibile isolare 
l'incognita (i), dal che consegue che 
il suo valore deve essere ricercato 
per tentativi. 


La terza formula evidenzia il valo¬ 
re di (i) al quale l'iterazione si è fer¬ 
mata, cioè il tasso di interesse appli¬ 
cato dalla società di leasing, determi¬ 
nato in relazione al periodo di tempo 
intercorrente tra il pagamento di cia¬ 
scuna rata e la precedente,che nel 
nostro caso corrisponde a un mese. 

Oraoccorreprocedereatrasformare 
il tasso di interesse del periodo rile¬ 
vato in tasso di interesse annuale. Il 
tasso di interesse annuo del 16% pra¬ 
ticato dagli istituti bancari sui presti¬ 
ti alla clientela viene addebitato al 
cliente trimestralmente come indica¬ 
to in figura 7. 


1) = IF(ISNA(ITERCNT()),0.5,RC+0.02) 

2) = (sviluppo della formula): 

R * + Risc. *--- < = 16.500.000 

i (1*1)" 

ove: (i) = RC(-1 )C 

3) = RC(-2)C Figura 6 
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16/100 
360 gg 


90 gg = 4% 

Figura 7 


Se si considera che gli interessi ad¬ 
debitati al cliente, al termine dei tri¬ 
mestri successivi al primo, compren¬ 
dono anche gli interessi sugli interes¬ 
si addebitati al cliente al termine dei 
trimestri precedenti, si comprende co¬ 
me in effetti ci si trovi in presenza 
di una capitalizzazione composta e 
non di una capitalizzazione semplice 
come, per contro, accade ogniqual¬ 
volta gli interessi sono addebitati u- 
na sola volta all'anno. 

Il tasso di interesse sopra indicato 
è definito tasso di interesse annuo 
convertibile, e corrisponde al tasso 
annuo d’interesse nell’ipotesi che 
non si tenga conto della capitalizza¬ 
zione degli interessi che nel frattem¬ 
po viene di fatto operata. Nella for¬ 
mula visibile in figura 8: 


I =1 * K 

annuo K/annuo ^ 


Figura 8 


• iannuo = tasso di interesse annuo; 

• ik/annuo = tasso di interesse del pe¬ 
riodo infrannuale; 

• K = periodo infrannuale (semestre 
= 2; quadrimestre = 3; trimestre = 4; 
mese = 12). 


é Fife Edit Select Format Options Calcinate 


Il Cale: 7 


leasing definitiuo 



(s* mensile * 12) 



I Così 

(se bimestrale * 6) 



i 

( se trimestrale » 4) 



. ÌT.ms 

(se quadrimestrale * 3}. 



1 




.Ì!w> 

importo del riscatto 

209,000 

1.00* 

i 




.lime? 

mese del riscatto 

.25 , 


1 




| Val oi 

tasso di interesse del periodo infrannuale 

1.66* 






jValoi 


Figura 10. La finestra scompare al termine deiriterazione. 


la maschera del leasing con Multi- 
plan è opportuno dividere il foglio 
di calcolo in tre parti distinte seppur 
strettamente collegate tra loro. Pri¬ 
ma di inserire qualsiasi dato è oppor¬ 
tuno selezionare il comando calcolo 
manuale per evitare pause di calcolo 
della macchina ogniqualvolta si ap¬ 
porti una variazione alla maschera. 
La prima parte (figura 11) occupa 
le colonne 1, 2 e 3 fino alla riga 27 
e serve a calcolare il tasso di interes¬ 
se del leasing stipulato. La colonna 
1 raccoglie la descrizione dei vari ri¬ 
sultati e dati numerici che occupano 
le colonne 2 e 3.1 dati da inserire so¬ 
no il valore del bene acquistato, 


(R4C2), l'importo della prima rata 
(R6C2), l’importo delle rate successi¬ 
ve (R8C2), il numero delle rate 
(R10C2), la periodicità delle stesse 
(12 se mensile, 6 se bimestrale, 4 se 
trimestrale, 3 se quadrimestrale (R12 
C2)), l'importo del riscatto (R18C2) 
e infine il numero in progressione 
del mese del riscatto (R20C2). Per 
completare la colonna 2 bisogna in¬ 
serire le formule per il calcolo del 
tasso infrannuale (in R22 C2:=(R(- 
15)C(+6)+0.02)/100), di quello an¬ 
nuo semplice nominale (in R24C2, 
=R(-12)C*R(-17) C(+6)/100) e di 
quello annuo composto (in R26C2, 
=R(-16)C(+ 6)+0.001). La colonna 


Il tasso che 
pagate realmente 

Per determinare il tasso di interes¬ 
se equivalente, cioè quello effettiva¬ 
mente praticato dalla società di lea¬ 
sing su base annua, occorre applica¬ 
re la formula di figura 9, dove: 

• ik/anno = tasso di interesse del pe¬ 
riodo infrannuale; 

• K = periodo infrannuale (semestre 
= 2; quadrimestre = 3; trimestre = 4; 
mese = 12). 

Ricordate che ik/anno è il tasso di 
interesse ricavato applicando al con¬ 
tratto di leasing la formula (5F). Di 
conseguenza si determina il valore 
del tasso di interesse (equivalente) an¬ 
nuo praticato di leasing. 

Lanciando l'iterazione appare a vi¬ 
deo la relativa finestra (figura 10). 
Per semplificare la preparazione del¬ 


ti + i „ 

' K/annuo 


1/K 


-1 


Figura 9 
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LEASING Tabella 1 



2 

Determinazione del tasso di interesse (arroti 

)ndamento +/-.05% 

superiore) 

3 




4 

Valore del bene acquistato 

20.905.000 

% sul costo 

5 



d'acquisto 

6 

Importo della 1° rata 

5.01 7.000 

24.00% 

7 




8 

Importo delle rate successive alla prima 

1 .003.000 

4.80% 

9 




1 0 

numero delle rate 

20 


1 1 




1 2 

periodicità delle rate 

12 


13 

(se mensile = 12) 



14 

(se bimestrale = 6 ) 



1 5 

( se trimestrale = 4) 



1 6 

(se quadrimestrale = 3) 



1 7 




1 8 

importo del riscatto 

209.000 

1.00% 

1 9 




20 

mese del riscatto 

25 


21 
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n 
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ii 
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ii 

ii 

li 

il 

22 

tasso di interesse del Deriodo infrannuale 

2.42% 


23 




24 

tasso di interesse annuo semplice (nominale) 

28.80% 


25 




26 

tasso di interesse annuo comDOSto 

33.02% 



Figura 11. Inserimento dati e formule per la determinazione del tasso d'interesse. 
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1 

2 

3 

28 

LEASING Tabella 2 



29 

Determinazione della rata in % noto il tasso c 

'interesse e il costo 

dei bene 

3 0 




31 

Tasso di interesse % 

29.64 


32 




33 

Importo della 1°rata % 

1 3.33 


34 




3 5 

Importo delle rate succes- 



36 

sive alla prima % 

6.67 


37 




3 8 

numero delle rate 

1 5 


39 




40 

periodicità delle rate 

1 2 


41 

(se mensile = 12) 



4 2 

(se bimestrale = 6) 



4 3 

( se trimestrale = 4) 



44 

(se quadrimestrale = 3) 



4 5 




L4 6 

importo del riscatto% 

3 


47 




; 48 

mese del riscatto 

1 5 



Figura 12. Calcolo della percentuale delle rate successive e del riscatto. 


3 della prima tabella calcola la per¬ 
centuale sul costo d’acquisto, rispetti¬ 
vamente, della prima rata (in R6C3, 
=RC(-1)/R(-2)C(-1)), delle rate suc¬ 
cessive (in R8C3, =RC(-1)/R(-4)C(- 
1)) e del riscatto (in R18C3,=RC(- 
1)/R(-14)C(-1)). 

La seconda parte della maschera 
(figura 12) va dalla riga 28 alla 50 
e occupa le colonne 1, 2 e 3. E' dedi¬ 
cata al calcolo della rata in percentua¬ 


le sulla base del tasso di interesse e 
del costo del bene inseriti dall’utente 
(rispettivamente alla riga 31, colon¬ 
na 2 il primo, alla riga 33, colonna 
2 il secondo). L’importo in percen¬ 
tuale delle rate successive alla prima 
è calcolato con la formula di 
R36C2* 

=R(-14)C(+4)/R(-24)C(+4)*100. La 
tabella due è completata dall’inseri- 
mento in R38C2 del numero delle ra¬ 


te, in R40C2 dalla loro periodicità 
come nella prima parte, in R46C3 
dall’importo del riscatto in percentua¬ 
le e in R48C2 dal mese del riscatto. 

La colonna 4 è vuota per distacca¬ 
re la tabella 3, cuore della maschera, 
che raccoglie le formule cui fanno ri¬ 
ferimento le tabelle 1 e 2 per deter¬ 
minare tutti i valori calcolati. La ter¬ 
za parte (figura 13) occupa le co¬ 
lonne 5 e 6 dalla linea 1 alla 24. In 
R4C6 viene calcolato il valore reale 
del prestito, rappresentato dal costo 
di acquisto detratta la prima rata pa¬ 
gata alla stipulazione del contratto. 
La formula è dunque: =RC(-4)- 
R(+2)C(-4) 

In R6C6 la formula che permette 
l’iterazione della maschera: =IF(I- 
SNA(ITERCNT()),1 JRC+0.02). Nel¬ 
la casella successiva la formula che 
dà il valore TRUE quando l'iterazio¬ 
ne si arresta dopo che la disegua¬ 
glianza evidenziata viene soddisfatta. 
Facendo attenzione a non perdere nes¬ 
sun carattere, digitate in R7C6: 
=R(+ l)C(-4)*((( 1+R(- 1)C/100) A R 
(+3)C(-4))-l)/((R(-l)C/100)*(l+R(- 
l)C/100) A R(+3)C(4))+(R(+ll)C(-4) 
*(l+R(-l)C/100) A (-R(+13)C(-4)))< 
=R(-3)C 

Ancora una cella sotto si richiama 
il valore di R6C6. Posizionati in 
R8C6, digitate: =R(-2)C 

In R10C6, ultima formula della 
prima parte, bisogna digitare =((1 
+R(-2)C/100) A R(+2)C(-4)-l) 

Alla riga 13 viene posto il costo 
del bene uguale a 1.000.000 sulla 
cui base vengono calcolati il tasso 
equivalente (in R15C6 digitare =((1 
+R(+16)C(-4)/100) A (l/R(+25)C(-4))- 
1)), l’importo a prestito (in R17C6 
=R(-4)C-R(-4)C*R(+16)C(-4)/100), 
l'importo del riscatto (inR19C6 =R(- 
6)C*R(+27)C(-4)/100), il valore at¬ 
tuale del riscatto (in R21C6 =R(-2) 
C*(l/(l+R(-6)C) A R(+27)C(-4)) e il 
valore della rata (in R23C6 =(R(-6) 
C-R(-2)C)*((R(-8)C*(1+R(-8)C) A R 
(+15)C(-4))/((l+R(-8)C) A R(+15)C(- 
4)-l)) A questo punto basterà inseri¬ 
re di volta in volta i dati richiesti e 
dare il comando Calcola adesso per 
verificare costo e convenienza reali. 

Giulio Boselli 
Ha collaborato: Mario Magnani 

' \ 

Questo programma è disponibile 
su dischetto. L’elenco, i prezzi 
e le modalità d’ordine di questo 
e degli altri dischetti disponibili 
sono riportati nella rubrica 
Disk Service. 

\ J 
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1 

Tabella 3 


2 

FORMULE DI RIFERIMENTO P 

ER IL CALCOLO D 

EL LEASING 

3 




4 

V.Prestito 

15.888.000 


5 




6 


2.42 


7 


TRUE 


8 


2.4200 


9 




10 


0.332346723 


l 1 1 




1 2 




1 3 

Costo bene 

1.000.000 


14 




15 

Tasso equivalente 

0.021 86828 


1 6 




17 

Importo a prestito 

866.700 


18 




19 

Importo riscatto 

30.000 


20 




I 21 

Valore attuale riscatto 

21.687 


22 




23 

Valore rata 

66.686 



Figura 13. Qui vanno raccolte le formule delle figure 10 e 11. 







































































Apple EdIT." Il sis 
dal bozzetto 


Questa è la bozza del vostro notiziario 
aziendale, così come lo fareste, con 
tutte le vostre indicazioni, aggiunte, 
correzioni di testo, modifiche 
all’immagine grafica... 







...e questo è il vostro notiziario 
aziendale finito e stampato proprio 
come lo volete voi. Impaginato, 
redatto, illustrato, assemblato da Apple 
EdIT in metà tempo e fatto tutto da 


Apple e il marchio Apple sono marchi registrati della Apple Computer Ine. LaserWriter, MacDraw sono marchi della Apple Computer Ine. Macintosh è un marchio Mclntosh Laboratori 
è usato su sua licenza. Page Maker è un marchio Aldus Corporation. Microsoft è un marchio Microsoft Corporation. ReadySetGo è un marchio di Manhattan Graphics 



tema più veloce 
alla stampa. 





ReadySetGo, 
realizzato dalla 
Manhattan 
Graphics. 

Microsoft Word, 
realizzato dalla 
Microsoft. 


taly&jftìo 




PageMaker, 
realizzato dalla 
Aldus Corporation. 


* Editoria Individuale Testo-grafica. 


Qui a fianco, un notiziario aziendale 
in bozza come lo fareste voi. 

A sinistra in basso, la stampa finita del 
notiziario come la volete voi. 

A destra, Apple® EdIT, il sistema 
che, finalmente, fa tutto il lavoro 
per voi. 

Apple EdIT è il più rivoluzionario 
sistema integrato per realizzare 
qualunque tipo di documento o 
stampato, dalla bozza iniziale alla 
stampa finale: libri, riviste, relazioni, 
cataloghi, listini, manuali, etc. 

La cosa di per sè è molto 
apprezzabile; ma lo è ancor di più se 
tenete conto che con Apple EdIT si 
evitano tutti gli sprechi di tempo 
tipici dei metodi tradizionali di 
stampa. Il che vuol dire meno gente 
impegnata nella realizzazione, 


MICROSOFT 

. • 1 

I 

m 

MacDraw, 
realizzato dalla 
Apple Computer. 


caratteri tipografici diversi e realizzare 
qualsiasi composizione su carta, 
lucido, buste, etichette. 

Il software a disposizione di Apple 
EdIT comprende tra l’altro: 
PageMaker", Microsoft" Word, 
ReadySetGo" e MacDraw" 

Ognuno di loro permette tali e 
tante soluzioni di grafica, testi, 
impaginazione, sillabazione in 
italiano, stampa e illustrazione da 
soddisfare al meglio qualsiasi 
esigenza. 

Tutto questo è Apple EdIT. Vi pare 
poco? 

A noi no, ma se volete sapere 
perchè Apple EdIT è il sistema che fa 
proprio per voi e tutto per voi, venite a 
conoscerlo meglio in un 
Apple Center. Gli indirizzi sono sulle 
Pagine Gialle. 


nessuna esecuzione da fare fuori 
azienda e, soprattutto, costi ridotti 
all’osso. 

Quindi un guadagno totale sotto ogni 
aspetto. 

Il sistema Apple EdIT è formato da 
un computer Macintosh" 512K, 
oppure dal nuovo Macintosh" Plus, 
con maggiore potenza e velocità; più 
la sofisticata stampante LaserWriter" in 
grado di stampare con ben 35 


£ iifarliftFJrMtfi 


Ecco la sofisticata stampante LaserWriter: in pochi secondi, esattamente come lo 
desiderate, stampa tutto ciò che avete realizzato su Macintosh. Dal computer, alla 
stampante, direttamente a voi! 


•* Apple Computer 


































Macintosh Plus, molte rose e una piccola spina: la compatibilità dei 
programmi. Per non andare a tastoni, per non fare acquisti sbagliati, ecco 
una guida sintetica e completa ai programmi che girano oppure no sul Plus, 
o sull'upgrade di un vecchio Macintosh. 


Compatibile o no 


Il problema si era posto prima tra 
il HPlus e il Ile (vedi Applicando n. 
2, luglio-agosto 1983), in seguito 
tra il Ile e il Ile (vedi Applicando n. 
9, ottobre 1984) e oggi anche con il 
Macintosh vecchia versione e il 
nuovo Plus: se da una parte l’upgra- 
de di un personal computer ne au¬ 
menta potenza e capacità, dall’altra 
pone il problema della compatibilità 
con i prodotti hardware e software 
presenti sul mercato. 

Prima di entrare nel dettaglio 
dell’incompatibilità eventuale con il 


nuovo Macintosh plus, però, è me¬ 
glio fare un veloce ripasso delle prin¬ 
cipali differenze tra i due modelli. 
Primo enorme vantaggio, l’espansio¬ 
ne della memoria utente, la RAM, a 
1Mb. La memoria di massa incorpo¬ 
rata prevede un’unità dischetti da 
800Kb, ma è ugualmente possibile 
lavorare con dischi da 400Kb. Ri¬ 
spetto alla versione con 128 e 
512Kb, il nuovo Plus dispone di 
una nuova ROM da 128Kb contro i 
64 delle versioni precedenti. La nuo¬ 
va ROM consente inoltre una gestio¬ 


ne della cosiddetta memoria tampone 
(cache memory), di un nuovo File 
System a struttura gerarchica (ma 
non per questo viene rifiutato il pre¬ 
cedente), della nuova porta SCSI, e 
di un più efficiente utilizzo del Qui¬ 
ckDraw. 

Anche per quanto riguarda il so¬ 
ftware di sistema nascono alcune dif¬ 
ferenze: Il Macintosh Plus usa i nuo¬ 
vi System e Finder V.5 che, tra le 
varie funzionalità, supportano il 
512Kb, eseguono la fomattazione 
dei dischetti a singola o doppia fac- 


C’è un nuovo Mac 


In silenzio il Fat Mac, la versione Macinto¬ 
sh con 512Kb di memoria, è uscito di pro¬ 
duzione. A sostituirlo senza traumi è dispo¬ 
nibile da pochi giorni negli Apple Center 
una nuova versione battezzata 512/800. 
E', in pratica, un Macintosh Plus con 512 
Kb di memoria Ram fatta eccezione per la 
nuova porta SCSI che rimane optional 
esclusivo del Plus. I benefici sono l'utilizzo 
del nuovo System che si basa su 128Kb di 
memoria Rom, che permette il File System 
gerarchico, il boot diretto dall'hard disk, la 
cache memory, la nuova routine del Qui¬ 
ckDraw e gli altri vantaggi del Plus (descritti 
nell'articolo a lato). Anche la tastiera è cam¬ 
biata: con il 512/800 viene data la versione 
estesa con tastierino numerico. 

Come per il "vecchio" 512 anche nel nuo¬ 
vo Mac è possibile aggiungere in un secon¬ 
do tempo la scheda di aggiornamento a Ma¬ 
cintosh Plus. Il prezzo è stato definito dalla 
stessa Apple "aggressivo", 4,390 milioni al 
netto di Iva, che significa mezzo milione in 
meno rispetto all'ultimo listino del Fat Mac. 


Mac Plus 

Mac 512/800 



Mac 512 


Mac 128 





Hardware Apple 





Drive esterno 400Kb 

Sì 

Sì 

Sì 

• Sì 

Drive esterno 800 Kb 

No 

Sì 

Sì 

Sì 

Hard Disk 20 Mb 

No 

Sì 

Sì 

Sì 

Image Writer 

Sì 

Sì 

Sì 

Sì 

Image Writer // 

Sì 

Sì 

Sì 

Sì 

LaserWriter 

No 

Sì 

Sì 

Sì 

Rete AppleTalk 

No 

Sì 

Sì 

Sì 

Tastiera Plus 

Sì 

Sì 

Sì 

Sì 

Tastiera precedente 

Sì 

Sì 

Sì 

Sì 

Tastierino numerico 

Sì 

Sì 

Sì 

Sì 

Upgrade 800 Kb 

No 

Sì 

Sì 

Sì 

Upgrade Plus 

Sì 

Sì 

Sì 

- 
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eia, offrono un nuovo pannello di 
controllo che regola la memoria tam¬ 
pone, abilita e gestisce la rete Apple- 
Talk, offre un comando tastiera capa¬ 
ce di mostrare tutti i Fonts con carat¬ 
teri associati e una nuova Scelta 
stampante con l'identificazione dell'u¬ 
tente. 

Le nuove versioni del System e 
del Finder non girano però sulla ver¬ 
sione con 128Kb. Più precisamente, 
possono lavorare, ma il disco siste¬ 
ma occupa troppo spazio senza la¬ 
sciare sufficiente memoria alle appli¬ 
cazioni. 

Di conseguenza anche perifieriche 
hardware che richiedono i nuovi Sy¬ 
stem V.5 o System particolari (come 
per esempio l'hard disk) non sono 
compatibili con il primo modello 
della linea Macintosh, il 128. 

Il nuovo System è stato battezzato 
HFS, acronimo di Hierarchical File 
System, vale a dire sistema gerarchi¬ 
co di gestione dei file. Rispetto al 
p ecedente, (battezzatoMfs,Macinto¬ 
sh file System), il sistema Hfs lavo¬ 
ra su una struttura ad albero: utiliz¬ 
zando una directory gerarchica, File 
Catalog, i file vengono ordinati in 
directory coincidenti con le cartelle 
della scrivania, i cui contenuti ven¬ 
gono organizzati in sub-directory. 
La tecnica del sistema Mfs era inve¬ 
ce organizzata su una ricerca per no¬ 
me in sequenza rendendo così più 
lenta la gestione del file ogni volta 
che aumentava il contenuto del di¬ 
schetto. 

Ed è proprio questa la croce dell'in¬ 
compatibilità software tra i due mo¬ 
delli, la differente tecnica di lavoro 
dei System diversi quando vanno a 
leggere il dischetto. Attenzione 
dunque, alcuni programmi sembra 
che girino senza problemi anche sul 
Plus ma poi si rischia di scoprire 
che qualche cosa non va o di trovarsi 
la odiata bomba sullo schermo. Per 
fare degli esempi, Omnis 3 gira so¬ 
lo se il file ’'Omnis3.Info” si trova 
nella cartella di sistema, ancora, 
Page Maker deve avere i files di 
Help nella stessa cartella dell’applica¬ 
zione, infine, la Dama Francese fun¬ 
ziona solo in caso venga lanciato da 
un drive esterno da 400K. 

Per non andare a tastoni, ecco in 
dettaglio due tabelle di confronto tra 
i prodotti della famiglia Macintosh 
che permettono di valutare la compa¬ 
tibilità dell'hardware Apple e del so¬ 
ftware più comune presente sul mer¬ 
cato. 

Mario Magnani 




Compatibile 


Prezzo x 000 




Settore applicativo 




Programma 

Distributore 




Amministra Mac 

Thema 

C 

1.000 

S 

Basic 

Microsoft 

U 

340 

S 

Calcoli strutturali 

Softing 

1 


S 

Cfs Schedario 

Cominfor 

DB 

330 

S 

Chart 

Microsoft 

G 

440 

S 

Chipwits 

Bits&Bytes 

H 

142 

N 

Click Art Effects 

Bits&Bytes 

G 

143 

S 

CoGe 

Informatica Biella 

C 

1.150 

S 

ContaMac 

KeySoft 

C 

950 

S 

Crunch 

Bits&Bytes 

S 

843 

N 

Dama Francese 

Editronica 

H 

118 

N 

Dollar & Sense 

Bits&Bytes 

C 

420 

N 

Ensamble 

Italware 

IN 

590 

N 

Excel 

Microsoft 

IN 

950 

S 

File 

Microsoft 

DB 

450 

S 

File Maker 

Bits&Bytes 

DB 

560 

S 

Filevision 

JSoft 

DB 

420 

N 

Helix 

Bits&Bytes 

DB 

925 

N 

Jazz 

JSoft 

IN 

1.300 

S 

Mac// 

Editronica 

U 

415 

S 

MacDraft 

Elcom 

G 


S 

MacDraw 

Apple 

G 

385 

S 

MacEdil 

Computer Service 

1 


S 

Macintosh Pascal 

Apple 

U 

260 

S 

MacLion 

Bits&Bytes 

DB 

1.083 

N 

MacPaint plus 

Apple 

G 

200 

S 

MacPIot 

Easy Byte 

G 

400 

S 

Mac Radar/ch 

Cigraph 

G 


S 

MacSwitcher 

Apple 

U 

40 

S 

MacTerminal 

Apple 

CM 

260 

S 

MacWrite plus 

Apple 

WP 

200 

s 

Multiplan 

Microsoft 

S 

550 

s 

MusicWorks 

Bits&Bytes 

H 

230 

N 

My Office 

Editronica 

IN 

270 

N 

Omnis3 

PC Personal Computer 

DB 

1.050 

S 

OverVue 

JSoft 

DB 

640 

S 

PageMaker 

Italware 

E 

1.500 

S 

PagheMac 

Thema 

C 

1.000 

S 

Pardo Mac 

Easy Byte 

C 

1.000 

S 

Prolog 

Teologie 

U 

2.500 

S 

Quartet 

Bits&Bytes 

IN 

571 

N 

Siila 

Editronica 

WP 

350 

S 

Smooth Talker 

Bits&Bytes 

H 

330 

S 

Think Tank 

JSoft 

WP 

704 

s 

VideoWorks 

Bits&Bytes 

G 

285 

s 

Word 

Microsoft 

WP 

550 

s 

Legenda: C= contabilità; CM= comunicazioni; DBr data-base; E= editoria; G= grafica; 

H= hobby; 1= ingengneria; IN= integrati; S= spreadsheet; U= utility; WP= word processor 
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HARDWARE 



Unidisk è il più recente drive prodotto per i computer della linea 
Apple II, e utilizza i dischetti da 3,5 pollici. E' innovativo perché aumenta 
la capacità di registrazione ed elimina il problema della grande 
vulnerabilità dei dischi da 5 pollici e 1/4. Applicando lo ha provato per voi. 


La carica degli 800 


Prodotto e ideato dalla Sony, il 
nuovo drive distribuito dalla Apple 
ha centrato due obiettivi molto im¬ 
portanti: aumentare notevolmente la 
capacità di registrazione dei dati e 
rendere meno vulnerabile quello che 
è certamente l'hardware più delicato, 
il disco. 

Unidisk utilizza infatti i dischetti 
da 3,5 pollici, gli stessi utilizzati da 
Macintosh, e questi supporti magne¬ 
tici hanno il grande vantaggio di 
non essere flessibili come i loro pre¬ 
decessori da 5,25 pollici. Misurano 
9 x 9,5 centimetri e sono realizzati 
con una plastica molto resistente 
che non si piega, come può accadere 
invece con la plastica dei dischetti 
tradizionali. Inoltre non è possibile 
sporcare con polvere o con le 
ldita il supporto magne¬ 
tico, in guanto 
quest’ultimo 
è coperto 


da una tacca di metallo che si apre 
solo quando il dischetto viene inseri¬ 
to nel drive. 

Oltre a risolvere alcuni problemi 
pratici, Unidisk ha il grande vantag¬ 
gio di contenere ben 800 k formatta¬ 
ti; questo vuole dire che un disco da 
3,5 pollici offre una capacità oltre 
cinque volte superiore ai dischi da 
5,25 pollici. 

Unidisk supporta soltanto i siste¬ 
mi operativi ProDos e Pascal, ma è 
disponibile sul mercato americano u- 
na versione modificata del 
Dos 3.3 che permette 
innanzitutto 
di usufruire 
della 


vastissima biblioteca di software 
Dos 3.3 per Apple II con l’ausilio 
dellUnidisk, nonché di dividere 
un disco in due volumi che possono 
contenere fino a 400 file ciascuno. 

Prove pratiche 

Applicando ha 
svolto molte 
prove 



con il ProDos. Su di un unico disco 
da 3,5 pollici sono stati registrati 
tutto il programma Tre per te e tutto 
il programma SuperCalc 3.a, corri¬ 
spondenti a 5 dischi da 5,25 pollici, 
e c’era ancora spazio disponibile per 
il salvataggio di eventuali dati. 

Oltre a ridurre drasticamente il 
cambio dei dischetti, ciò che più im¬ 
pressiona è la velocità di passaggio 
da un programma all'altro. Se voi 
lanciate SuperCalc 3.a e, utilizzando 
un comando del programma, termina¬ 
te saltando a Tre per te, in meno di 
tre secondi il vostro Apple vi presen¬ 
ta la pagina introduttiva di Tre per 
te. Questo è possibile perché il siste¬ 
ma operativo ProDos viene caricato 
in memoria quando si lancia un pro¬ 
gramma la prima volta e non è quin¬ 
di necessario ricaricarlo per lanciare 
il secondo pro¬ 
gramma. 


Unidisk, più veloce ed estrema- 
mente silenzioso, può essere utilizza¬ 
to sia come drive per lanciare un pro¬ 
gramma sia come drive secondario; 
nel primo caso non dovete far altro 
che lasciare vuoti i vostri drive da 
5,25 pollici: il computer caricherà 
così il programma contenuto nel di¬ 
sco presente nell'Unidisk. 

E' importante ricordare che il pri¬ 
mo programma che verrà registrato 
sull’Unidisk sarà quello lanciato al¬ 
l’accensione del computer; se volete 
utilizzare gli altri programmi dovre¬ 
te passare attraverso l’opzione Fine 
Programma del primo programma ca¬ 
ricato. La soluzione migliore quindi 
è caricare, come primo programma, 
il Mouse Desk, per poi decidere qua¬ 
le programma utilizzare. 

Un utilizzo ottimale dell'Unidisk 
prevede un veloce ripasso delle rego¬ 
le che gestiscono il sistema operati¬ 
vo ProDos; 800K formattati so¬ 
no tanti e il consiglio 


l’Apple Ile è possibile collegare fino 
a 4 Unidisk contemporanemente. Il 
prezzo del primo Unidisk per Apple 
Ile è di 990.000 lire più Iva (18%), 
quello di ogni Unidisk aggiuntivo è 
di 850.000 lire più Iva; l’Unidisk 
per Apple Ile, che ha un drive incor¬ 
porato, costa 850.000 lire più Iva. 

Ambedue i computer necessitano 
di una leggera modifica interna: per 
l’Apple Ile è necessario sostituire u- 
na Rom in grado di riconoscere il 
nuovo drive sullo slot 5, per l’Apple 
Ile è previsto anche un controller 
che va appunto inserito nello slot 5. 

Un Apple Ile acquistato oggi, pe¬ 
rò, non necessita di alcuna modifica 
in quanto è già predisposto per fun¬ 
zionare anche con gli Unidisk. 

Il collegamento è a catena, ossia 
potete collegare un Unidisk diretta- 
mente al vostro computer, il secon¬ 
do si collega al primo e così via. Le 
dimensioni sono molto ridotte: 20 x 
12 x 5 centimetri. Il software esi¬ 
stente trae solo vantaggi dall’utilizzo 
dell’Unidisk, perciò se non è protet¬ 
to si può velocemente trasferire. 

E’ da poco sul mercato la nuova 
versione di Tre per te che gestisce in 
maniera più chiara gli Unidisk, ma 
chiunque possiede la vecchia versio¬ 
ne può comunque utilizzarla senza al¬ 
cun problem: basta settare nel pro¬ 
gramma l’opzione 3 Profile o altra 
ProDos directory del menu Cambia 
disco corrente. 

Qualora il programma sia protet¬ 
to, non esiste la possibilità di copiar¬ 
lo su un disco da 3,5 pollici. 

Va segnalato tuttavia che questa in¬ 
novazione ha creato nuovi atteggia¬ 
menti da parte dei produttori di soft¬ 
ware. Ci sono programmi protetti 
come MouseCalc, MouseWord, la 
serie PFS (ora in ProDos) e tanti al¬ 
tri, che vengono offerti dal produtto¬ 
re direttamente su supporto sia da 
3,5 pollici sia da 5,25 pollici. 

Ci sono altri programmi protetti 
che sono stati modificati in modo 
da utilizzare l’Unidisk come disco da¬ 
ti aumentando notevolmente le capa¬ 
cità del programma; la contabilità 
Pardo ne è un brillante esempio. 

E infine ci sono programmi che 
possono funzionare solo con l’Uni- 
disk; è il caso di BusinessWorks, un 
software per la gestione di piccole a- 
ziende secondo gli schemi america¬ 
ni, che non viene fornito su dischi 
da 5,25 pollici in quanto questi ulti¬ 
mi non sono fisicamente in grado di 
gestire il programma. 

Giuseppe Durazzano 




migliore è 
di suddivi¬ 
derli in diverse 
sub-directory in mo¬ 
do da organizzare nel migliore 
dei modi l'indice del disco e avere un 
po' di ordine quando Mouse Desk vi¬ 
sualizza il suo contenuto*. 


Configurazioni 


A un Apple Ile si possono collega- 
re fino a due Unidisk più un drive e- 
stemo da 5,25 pollici, mentre per 
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Il Basic e gli Apple II in pratica. Questo volume 
accompagna gradualmente l’utente, al quale 
non è richiesta alcuna conoscenza matematica 
o informatica di base, dai primi approcci alla 
tastiera fino alla completa padronanza del com¬ 
puter e della programmazione. È il lettore a 
decidere se passare al successivo capitolo o 
ritornare ad approfondire quanto gli è stato 
appena spiegato. 310 pagine, 28.000 lire. 



Il Multiplan per il Macintosh. Oltre la pura 
semplice descrizione del funzionamento del fo¬ 
glio elettronico, introduce l’utente all’uso di 
uno strumento di lavoro integrato che permette 
di svolgere una quantità insospettabile di attivi¬ 
tà diverse in ogni area del lavoro d’ufficio o nella 
professione: modifiche, tagli, spostamenti, ri¬ 
montaggi, dal bilancio di una società al campio¬ 
nato di calcio. 210 pagine, 26.000 lire. 



Il manuale ProDOS. Il ProDOS costituisce un 
significativo passo avanti rispetto al diffuso ma 
ormai un po’ invecchiato DOS 3.3. Questo ma¬ 
nuale introduce ai numerosi e complessi aspetti 
del ProDOS, dedicando particolare attenzione 
alla struttura ad albero dei directory, alla com¬ 
patibilità con il DOS 3.3 e con il SOS e alla 
programmazione in Basic Applesoft sotto Pro¬ 
DOS. 200 pagine, 25.000 lire. 



Il Basic Microsoft. Il libro comprende un’anali¬ 
tica descrizione dell’uso di tutte le istruzioni, 
funzioni, comandi e operatori, organizzata in un 
vero e proprio corso di programmazione: loop, 
array, gestione di stringhe, formattazione del¬ 
l’output, subroutine, debugging, uso dei me¬ 
nu, gestione dei file ad accesso casuale e se¬ 
quenziale, file di chiavi e puntatori. Ricchissima 
documentazione esemplificativa. 432 pagine, 
38.000 lire. 



Genitori nell’era del computer.ln che modo è 
possibile servirsi del computer nell’educazione 
dei figli? In che misura il computer cambierà la 
scuola? Qual è il software più adatto a stimolare 
la creatività dei bambini? A queste domande - e 
ad altre ancora - Pter Scharf dà delle risposte 
basate sulla sua esperienza in famiglia (quattro 
figli maniaci del computer) e nelle scuole statu¬ 
nitensi. 256 Daaine. lire 19.000. 


COMPUTER 

GRAPHICS 

CORSO DI 
PROGRAMMAZIONE 
STEVEN HARRINGTON 



McGraw-Hill 


Computer Graphics. L’approccio seguito da 
Harrington rende accessibile il libro a un pubbli¬ 
co con basi matematiche elementari e concate¬ 
nando la spiegazione dei vari algoritmi in modo 
da portare il lettore anche alla realizzazione di 
un package grafico ben costruito e basato su 
concetti di standardizzazione delle funzioni. 
520 pagine, 39.000 lire. 


PASCAL 

GUIDA PER 
PROGRAMMATORI 
OLIVIER LECARME 
JEAN-LOUIS NEBUT 



Pascal. Guida per programmatori. Il libro può 
essere usato per un corso intermedio da coloro 
che scrivono programmi più avanzati, ma il suo 
fine principale è quello di servire come libro di 
testo per l’autoapprendimento, poiché esso of¬ 
fre una trattazione esauriente del Pascal e una 
descrizione fedele e precisa del linguaggio stan¬ 
dardizzato dall’ISO e dagli isituti nazionali di 
standardizzazione. 292 pagine, 29.000 lire. 













Programmazione umanizzata in Applesoft. 

Riassume tutte le tecniche che vengono comu¬ 
nemente impiegate dagli esperti di software per 
rendere più amichevoli i programmi. Vengono 
infatti affrontati tutti gli aspetti di queste tecni¬ 
che: sia quelli intèrni al software, come routine 
a prova d’errore o di formattazione dell’input, 
sìa quelli esterni, come la documentazione e i 
manuali operativi. Il libro include un quiz mne¬ 
monico e un’agenda telefonica. 208 pagine, 
21.000 lire. 



.<?* 


Grafica e animazione con gli Apple II. Questo 
libro vuole guidare gli appassionati nella com¬ 
plessa materia della grafica e dell’animazione, 
prendendoli per mano dai primi rudimenti attra¬ 
verso numerosi esempi e applicazioni, fino a 
una completa comprensione dei principi e dei 
metodi della computer graphics. Gli esempi 
sono applicati alla famigla degli Apple //: Il Plus, 
//e e //c. '160 pagine, 17.000 lire. 



Il Basic Applesoft. In 16 capitoli, un metodo 
graduale che non presuppone alcuna cono¬ 
scenza di base. Tra gli argomenti trattati: uso 
interattivo del computer, sintassi dei comandi 
DOS, formattazione dell’input e dell’output, ar- 
ray, selezione e ordinamento dei dati, grafica a 
bassa e ad alta risoluzione, trattamento dei file 
su disco, debugging, riepilogo delle istruzioni, 
comandi e funzioni Applesoft. 232 pagine, 
19.000 lire. 



Guida al Macintosh. Fin dal primo approccio, il 
Mac è molto amichevole, e offre sul video una 
scelta tra varie opzioni, rappresentate da icone. 
In questo modo l’utente può scegliere una o più 
di queste funzioni potendo tranquillamente 
ignorare ciò che avviene all’interno della mac¬ 
china e superando così la naturale diffidenza 
che a volte i computer ispirano. Lo strumento 
fondamentale per questo rapporto amichevole 
con il Mac è il mouse. 224 pagine, 22.000 lire. 


Il manuale MC68000. La famiglia di questo 
microprocessore trova un utilizzo vastissimo in 
workstation, sistemi CAD/CAM, sistemi di 
commutazione telematici, robot e controllori di 
processo, oltre che nei microcomputer di re¬ 
cente realizzazione, come Macintosh, Sinclair 
QL, HP 9816. Questo manuale è una preziosa 
fonte di informazione per gli appassionati che 
vogliono cimentarsi con la programmazione in 
Assembler. 168 pagine, 16.000 lire. 


Come usare MacWrite e MacPaint. Molto più 
di quanto facciano i manuali operativi allegati ai 
programmi, questo volume svela ogni trucco 
dei due applicativi per Macintosh, spiegando ed 
esemplificando particolari tecniche di disegno e 
di gestione dei testi, sempre nell’ottica di un 
uso integrato dei due programmi. Il libro è 
riccamente illustrato con immagini prodotte se¬ 
guendo fedelmente i consigli del testo, così da 
offrire ai lettori il risultato grafico di ogni se¬ 
quenza di operazioni. 192 pagine, 20.000 lire. 
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DATABASE 

Pianifica i lavori nel vostro orto, sorveglia il freezer, gestisce gli acquisti, 
aiuta a ben distribuire le varie incombenze domestiche. E poi è un gestore 
dedicato di database per tener ordine nei prestiti di dischi, riviste, libri... 


Metti un manager 
in famiglia 
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Di agende elettroniche ormai tutti 
ne possiedono almeno una, e colazio¬ 
ni di lavoro e appuntamenti dal medi¬ 
co non vengono più scordati. Succe¬ 
de ancora, però, di dimenticare rego¬ 
larmente mille altre cose legate alla 
vita domestica e al cosiddetto tempo 
libero, mille incombenze e impegni 
periodici che avrebbero bisogno di u- 
na solida e ordinata gestione. 

Reminder tiene nota di quasi tutte 
le attività domestiche o personali, 
quelle che importano davvero, le pic¬ 
cole cose della vita quotidiana che 
possono diventare grossi problemi 
se non le tenete sotto controllo. 

E 1 impostato per gestire a regola 
d'arte un piccolo ufficio prestiti, ma 
basta cambiare due istruzioni DATA 
per modificarlo in modo che conser¬ 
vi svariati tipi di dati: 

• Senza modifiche Reminder tiene 
nota di qualsiasi oggetto dato in pre¬ 


stito, in modo che sappiate che cosa 
avete prestato, quando, dove e a chi. 

• Il custode del freezer tiene un in¬ 
ventario di ciò che avete nel surgela¬ 
tore, della quantità, del tempo tra¬ 
scorso e della data di scadenza. 

• L’agenda degli acquisti per corri¬ 
spondenza registra gli articoli che a- 
vete ordinato, il fornitore, la data di 
ordinazione, la data prevista di arrivo 
e la data deH’effettivo arrivo. 

• L'agenda delle incombenze fissa i 
compiti da sbrigare in casa, per non 
dover più discutere per stabilire a chi 
tocca fare una certa cosa. 

• Il programmatore dell'orto regi¬ 
stra date di semina, costi, date previ¬ 
ste del raccolto, date effettive del rac¬ 
colto e quantità raccolta. 

• Gli ulteriori impieghi variano a 
seconda della vostra immaginazione 
e delle vostre necessità: per avere al¬ 
tre informazioni leggete il paragrafo 


» MENU PRINCIPALE - REMINDER 11 


INSERIMENTO DATI 
LISTA/RICERCA DATI 
MODIFICA DATI 
CANCELLA DATI 
FINE PROGRAMMA 


<- -> SELEZIONA ..... RETURN ESEGUE 

Figura 1. Il menù principale 


Listato 1. Reminder 

DOS 3.3 

10 REM 

ProDOS 

20 REM REMINDER 

30 REM DI MARK R. CRAVEN 

40 REM COPYRIGHT (C) 1986 

Apple Ile 

Apple Ile 


50 REM BY APPLICANDO & 
60 REM MICROSPARC, INC 


70 REM - 

80 TEXT : HOME 

90 LET IN$ = "X": REM INIZIALIZZA VARIABILE INP 
UT 

100 GOSUB 4770 

110 DIM L$(100,7): REM DATI DI CHI PRESTA 
120 DIM T$ ( 100,7) : REM MATRICE TEMPO PER INPUT 
PRIMA DELLA SCRITTURA SUL DISCO 
130 FOR I = 1 TO 39:L$ = L$ + " = ":UL$ = UL$ + 
CHR$ (95): NEXT 

140 POKE 963,0: REM FLAG ONERR 
150 D$ = CHR$ (4) 

160 F$ = "REMINDER.FILE": REM NOME FILE DI TEST 
O 

170 PRINT 

180 EF = 1: ONERR GOTO 1240: REM FILE VUOTO 
190 PRINT : PRINT D$;"OPEN"F$ 

200 PRINT D$;"READ"F$ 

210 INPUT NR$ 

220 PRINT D$;"CLOSE"F$ 

230 POKE 216,0 

240 REM ** LEGGE I DATI PER IL MENU ** 

250 FOR I - 1 TO 5: READ MU$(0,I): NEXT : REM M 
ENU PRINCIPALE 

260 READ V%(0) : READ H% (0): REM MENU PRINCIPALE 

270 FOR I = 1 TO 8: READ MU$(1,I): NEXT : REM M 
ENU AGGIUNTA DATI 
280 READ V%(1): READ H%(1) 

290 FOR I = 1 TO 7: READ T%(I): READ L%(I): NEX 
T : REM INPUT TAB, INPUT LUNGHEZZA 
300 FOR I = 1 TO 3: READ MU$(2,I): NEXT : REM M 
ENU DISCO 

310 READ V%(2) : READ H% (2) : REM TAB PER MENU DI 
SCO 

320 FOR I = 1 TO 4: READ MU$(3,I) : NEXT 
330 READ V% (3) : READ H%(3) 

340 FOR J = 940 TO 962: READ I: POKE J,I : NEXT 
J: REM ROUTINE INPUT DA DISCO 
350 FOR I = 1 TO 4: READ MU$(4,I): NEXT 
360 READ V%(4): READ H% (4 > : REM MENU STAMPANTE 
370 FOR I = 1 TO 6: READ P$(I): NEXT : REM INTE 
STAZIONI STAMPANTE 

380 GOSUB 4900: REM LETTURA IN ML DATI CURSORE 
A BARRA 
390 GOTO 430 

400 REM ** CENTRA TESTO ** 

410 HTAB 20 - LEN (X$) / 2: PRINT X$: RETURN 


420 REM ** MENU PRINCIPALE ** 

430 X$ = "** MENU PRINCIPALE - REMINDER **" 

440 POKE 963,1: REM FLAG ONERR 

450 R = 18:N = 5: REM MARGINE DESTRO, N. VOCI D 
EL MENU 

460 MI = 0:M2 = 1 

470 REM ** CURSORE A BARRA ** 

480 TEXT : HOME : GOSUB 410: PRINT : PRINT L$ 
490 VTAB V%(Mi) 

500 FOR I = 1 TO N: HTAB H%(MI): PRINT MU$(M1,I 
): PRINT : NEXT 
510 IF MI = 1 THEN RETURN 
520 VTAB 22: PRINT L$; 

530 VTAB 23: HTAB 3: INVERSE : PRINT NOR 

MAL : PRINT " ";: INVERSE . PRINT NO 

RMAL : PRINT " SELEZIONA . ";: INVERSE 

: PRINT "RETURN";: NORMAL : PRINT " ESEGUE" 
540 VTAB 24: PRINT L$; 

550 CALL 768, V% (MI), 2 * N + V%(M1) - 2,H%(M1) - 
1, R + H%(MI) 

560 LINE = ( PEEK (4) + 1) / 2 
570 ON MI + 1 GOTO 590, 600, 610, 620, 630, 650 
580 REM SCELTE MENU PRINCIPALE 
590 ON LINE GOTO 1360,2360,3410,3610,3900: REM 
SCELTE MENU PRINCIPALE 
600 REM Ml=2 NESSUN MENU 

610 ON LINE GOTO 730,1360,4880: REM MENU DISCO 
(MU$(2,X)) 

620 ON LINE GOTO 430,2400,3350,3360: REM MENU L 
ISTA/RICERCA DATI MENU Ml=3 
630 ON LINE GOTO 3370,640,640,3390: REM OPZIONE 
STAMPANTE/SCHERMO MI=4 

640 ON LINE - 1 GOSUB 2930,2970: GOTO 3920: REM 
IMPOSTA CPI POI STAMPA 
650 IF LINE = 8 THEN 2360: REM Ml=5 
660 GOTO 2470: REM Ml=5 - RICERCA 
670 REM ** ROUTINE DISCHETTO* * 

680 NR = VAL (NR$) + T% 

690 NR$ = STR$ (NR) 

700 HOME 

710 EF = 2: ONERR GOTO 4640 

720 MI = 2:M2 = 1:N = 3:R = 27: GOTO 480: REM C 
URSORE MENU 

730 GOSUB 1220: REM INTESTAZIONE 
740 REM ** AGGIORNA FILE ** 

750 IF LEN (NR$) < > 3 THEN NR$ = "0" + NR$: 

GOTO 750 

760 PRINT D$;"OPEN"F$ 

7,70 PRINT D$;"WRITE"F$ 

780 PRINT NR$ 

790 PRINT D$ 

800 PRINT D$;"CLOSE"F$ 

810 PRINT D$;"APPEND"F$ 

820 PRINT D$;"WRITE"F$ 

830 FOR I = 1 TO T% 

840 FOR J = 1 TO 7 . 

850 PRINT T$ (I, J) : NEXT J, I (Continua) 
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Personalizzazione del programma. 

Reminder utilizza un cursore a bar¬ 
ra in inverse per l'agevole selezione 
sul menù. Una duttile routine di ri¬ 
cerca permette di esplorare qualsiasi 
campo dati, e i prospetti possono es¬ 
sere visualizzati sullo schermo o in¬ 
viati alla stampante. 

Avvio del programma 
e introduzione dati 

Quando fate girare Reminder com¬ 
pare la videata d'intestazione. Preme¬ 
te <retum> e il programma legge il 
numero delle voci nel file Prome¬ 
moria file. Se non ci sono file, ne 
viene creato uno fittizio. 

Il display del menù principale (fi¬ 
gura 1) presenta cinque opzioni. 
Tutte le opzioni vengono seleziona¬ 
te con le frecce sinistra e destra per 
spostare la barra del cursore e poi 


con <retum>. Quando eseguite per 
la prima volta il programma il file 
dati è vuoto, e quindi potete selezio¬ 
nare solo le opzioni Inserimento dati 
e Fine programma. 

Esaminiamo passo passo tutto il 
programma introducendo dati in Re¬ 
minder. A parte le etichette per i 
campi dati, le altre versioni (Freezer, 
Mansioni, Orto e Acquisti per corri¬ 
spondenza) sono identiche. Nella ver¬ 
sione Promemoria i campi sono: pre¬ 
stato a, proprietario, oggetto, com¬ 
menti, data prestito, data prevista re¬ 
stituzione e data restituzione. E’ pos¬ 
sibile lasciar vuoto qualsiasi campo, 
o anche tutti, semplicemente pre¬ 
mendo il tasto <retum> quando com¬ 
pare il prompt per l'introduzione. 
Volendo potete introdurre virgole, 
punti e virgola e virgolette, in quan¬ 
to l’introduzione dei dati utilizza u- 
na routine di input di qualunque co¬ 


sa, scritta in memoria con POKE 
partendo dal programma in Basic. La 
sola limitazione all'introduzione dei 
dati è che si devono battere date vali¬ 
de nei campi della data. 

L'editing durante l’introduzione è 
molto semplice. Usate il tasto<esc> 
per arretrare fino a un campo prece¬ 
dente e reinseritelo. Se superate la 
lunghezza della linea d'input il curso¬ 
re rimane sull'ultimo carattere del 
campo dati e l'altoparlante fa bip. 
Premete <RETURN> per accettare 
l’introduzione e passare al campo 
successivo, oppure usate la freccia si¬ 
nistra per eliminare singoli caratteri 
dalla fine della linea d'input. Potete 
uscire dal modo introduzione in qual¬ 
siasi momento premendo <ctrl>Q. 

Quando avete introdotto almeno 
un record completo di sette campi da¬ 
ti, premete <ctrl>Q per uscire. Vi 
vengono proposte tre opzioni: 


860 PRINT D$ 

870 PRINT D$; n CLOSE"F$ 

880 POKE 216,0 

890 GOTO 430: REM MENU PRINCIPALE 
900 REM ** LEGGE FILE DATI ** 

910 EF = 3: ONERR GOTO 4640 
920 PRINT : PRINT D$; "OPEN ,, F$ 

930 PRINT D$;"READ"F$ 

940 CALL 940 :IN$ = MID$ (IN$,1) 

950 NR$ = IN$ 

960 FOR I = 1 TO VAL (NR$) 

970 FOR J = 1 TO 7 

980 CALL 940 :IN$ = MID$ (IN$,1) 

990 L$(I,J) = IN$ 

1000 NEXT J,I 
1010 IN$ = M " 

1020 PRINT D$ 

1030 PRINT D$;"CLOSE"F$ 

1040 RF = 1: REM FLAG LETTURA 
1050 POKE 216,0 
1060 RETURN 

1070 TEXT : HOME : VTAB 10: HTAB 10: PRINT "NES 
SUN DATO NEL FILE...": VTAB 23: PRINT "PRE 
MI <RETURN> PER CONTINUARE...";: POKE - 1 
6368,0: GET X$: GOTO 430 
1080 REM ** RISCRIVE IL FILE ** 

1090 GOSUB 1220: REM INTESTAZIONE 
1100 EF = 4: ONERR GOTO 4640 
1110 PRINT : PRINT D$;"OPEN";F$ 

1120 PRINT D$;"WRITE"F$ 

1130 PRINT NR$ 

1140 IF VAL (NR$) = 0 THEN 1180 
1150 FOR I = 1 TO VAL (NR$) 

1160 FOR J = 1 TO 7 

1170 PRINT L$(I,J): NEXT J: NEXT I 

1180 PRINT D$ 

1190 PRINT D$;"CLOSE"F$ 

1200 POKE 216,0 

1210 ED = 0:DL = 0: GOTO 430: REM MENU PRINCIPA 
LE 

1220 HOME :X$ = "** SALVA SUL DISCHETTO **": GO 
SUB 410: PRINT : PRINT L$ 

1230 VTAB 12: HTAB 5: PRINT "NON INTERROMPERE.. 
.": RETURN 

1240 IF PEEK (222) < > 5 THEN 4640: REM NON C 

•E* ERRORE 'END OF DATA' 

1250 PRINT D$;"WRITE"F$ 

1260 PRINT "000" 

1270 PRINT D$;"CLOSE"F$ 

1280 POKE 216,0: GOTO 250 

1290 IF PEEK (222) < > 5 THEN 4640: REM NON C 

'E* ERRORE 'END OF DATA' 

1300 PRINT D$;"OPEN";Fl$ 

1310 PRINT D$;"WRITE"FI $ 

1320 PRINT "000" 

1330 PRINT D$;"CLOSE"Fl$ 

1340 GOTO 340 

1350 REM ** INTRODUCE I DATI ** 


1360 T% = 0: REM INPUT CONTATORE RECORD PER SCR 
ITTURA DISCHETTO 

1370 TEXT : HOME :X$ = "** " + MU$(0,M2) + " * 

GOSUB 410: PRINT : PRINT L$ 

1380 MI = 1:M2 = 1:N = 7: GOSUB 490: REM STAMPA 
PROMPTS INPUT 
1390 VTAB 21: PRINT L$; 

1400 VTAB 22: HTAB 1: PRINT "<RTN> ACCETTA 
<ESC> RIGA PRECEDENTE": REM 5 SPAZI 
1410 PRINT " A Q ESCE ";: INVERSE : PRINT "<- 
NORMAL : PRINT " CANCELLA CARATTERE"; 
1420 ON ED GOTO 1440 

1430 VTAB 3: HTAB 16: PRINT "INSERIMENTO N. ";T 
% + 1: POKE 35,24: VTAB 20: HTAB 15: PRINT 
"RECORD N. " VAL (NRS) + T% + 1" ";: CALL 
- 868: POKE 35, 20 
1440 VTAB 24: CALL - 868 
1450 FOR I = 1 TO 7 

1460 VTAB 24: HTAB 1: CALL - 868: IF I = 5 THE 
N 1800: REM INPUT DATI 
1470 IF I > 5 THEN 1810 

1480 VTAB V%(MI) + 2 * (I - 1): REM IMPOSTA LA 
LINEA DI INPUT VERTICALE 
1490 HTAB T%(I) 

1500 IF ED THEN 1520 

1510 PRINT LEFTS (UL$,L%(I) ) ; : HTAB T%( I) : REM 
IMPOSTA LA LINEA DI INPUT ORIZZONTALE 
1520 1$ = "":I$ (I) = REM INPUT STRINGHE NUL 

LE 

1530 POKE - 16368,0: GET 1$: REM INPUT DI UN C 
ARATTERE 

1540 IF 1$ > CHR$ (31) THEN 1760 
1550 REM ** CONTROLLA SE <ESC> ** 

1560 IF 1$ < > CHRS (27) THEN 1620 

1570 IF I = 1 AND ED = 1 THEN PRINT CHRS (7); 

: HTAB T% (I) : GOTO 14 90: REM ARRETRA 
1580 IF I = 1 THEN PRINT CHRS (7);: HTAB T%(I 
): CALL - 868: GOTO 1490: REM ARRETRA 
1590 IF ED THEN HTAB T%(I):I = I - 1 * (I > 1) 

: GOTO 1480: REM ARRETRA ALL' ULTIMO INPUT 
1600 HTAB T% (I) : CALL - 868:1 = 1-1* (I > 1 
): GOTO 1480: REM ARRETRA AALL' ULTIMO INP 
UT 

1610 REM ** CONTROLLA SE <— ** 

1620 IF 1$ < > CHRS (8) THEN 1670 
1630 IF 1$ (I) = "" THEN PRINT CHRS (7);: GOTO 
1480 

1640 IF LEN (1$ (I)) = 1 THEN I$(I) = GOTO 

1490 

1650 POKE 36, PEEK (36) - 1: PRINT CHRS (95); 

CHRS ( 8); :I$ ( I) = LEFTS (I$(I), LEN ( I $(I 
) ) - 1) : GOTO 1530: REM <— 

1660 REM ** CONTROLLA SE <RTN> ** 

1670 IF 1$ < > CHRS (13) THEN 1720 
1680 IF ED AND LEN <1$ (I)) < 1 THEN IS(I) = L$ 
(II,I) 

1690 IF ED THEN 2180: REM ACCETTA IL CAMPO, AVA 
NZA AL CAMPO SEGUENTE 
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• SALVA DATI SU DISCO 

• ANNULLA DATI-RICOMINCIA 
. MENU PRINCIPALE (NON 

SALVA) 

Queste scelte dovrebbero spiegarsi 
da sole. Se salvate le voci introdotte 
il messaggio "non interrompere" vi 
avverte che non dovete aprire lo spor¬ 
tello del drive, né interrompere altri¬ 
menti il procedimento di scrittura 
sul dischetto. Facendolo potreste dan¬ 
neggiare in modo permanente il vo¬ 
stro file di dati o il catalog del di¬ 
schetto. Quando i dati sono stati sal¬ 
vati si toma al menù principale. 

Presentazione 
e ricerca dei dati 

Il menù Lista/ricerca dati, che pre¬ 
senta tre opzioni (oltre a Menù prin¬ 
cipale). 

• La ricerca per campo da¬ 


ti. Quando avete scelto Ricerca per 
campo dati lo schermo visualizza u- 
na lista dei sette campi in cui potete 
fare la ricerca. Selezionate un campo 
(o l'ultima opzione per tornare al me¬ 
nù Ricerca per campo dati). Compa¬ 
re una nuova videata con alcuni 
prompt e una linea d’input alla base 
dello schermo. Potete premere <RE- 
TURN> per mettere fine alla ricerca 
e tornare al menù Lista/Ricerca dati. 
<ctrl>L <RETURN> genera sullo 
schermo una lista del contenuto di 
quel campo in tutti i record del data¬ 
base, in modo che possiate seleziona¬ 
re i caratteri da ricercare. Se sapete 
quale informazione volete ricercare 
in quel campo, battetela, ma fate at¬ 
tenzione a batterla con gli stessi ca¬ 
ratteri maiuscoli o minuscoli con 
cui l'avete originariamente introdotta 
nel database. Per esempio, se cercate 
"LIBRO", il programma non localiz¬ 


zerà "libro". Inoltre la ricerca farà le 
corrispondenze solo dall’inizio del 
campo: PR troverà la corrispondenza 
PRIMO, mentre RI non la troverà. 

Se la ricerca localizza una corri¬ 
spondenza nel database viene visua¬ 
lizzato sullo schermo l’intero record 
(con il campo di ricerca evidenziato 
in inverse). Premendo <ESC> si e- 
sce dall'opzione di ricerca, e premen¬ 
do P si stampa la videata sulla stam¬ 
pante. Si fanno scorrere le corrispon¬ 
denze multiple premendo il tasto 
<retum> fino a quando comparirà al¬ 
la base dello schermo il messaggio 
Premi <retum> per continuare. 

• La visualizzazione di tutti 
gli Incompleti. Se volete visua¬ 
lizzare i record relativi agli oggetti 
prestati e non ancora restituiti, sele¬ 
zionate l’opzione Lista gli incomple¬ 
ti sul menù Lista/Ricerca. Un altro 
menù vi permette di scegliere fra vi- 


1700 PRINT 1$;: CALL - 868:1$ = NEXT : REM 

AVANZA AL CAMPO SEGUENTE 
1710 REM ** CONTROLLA SE A (CTRL) ** 

1720 IF 1$ < > CHR$ (17) THEN 1750 

1730 IF ED = 1 THEN RETURN : REM ESCE DALLA RO 
UTINE EDIT 

1740 GOTO 2330: REM A Q=RITORNA AL MENU O AL DIS 
CO 

1750 IF 1$ < CHR$ (32) THEN PRINT CHR$ (7);: 

GOTO 1530: REM CONTROLLO CARATTERI? 

1760 IF LEN (1$ (I)) = L%(I) THEN VTAB V%(M1) 

+ 2 * (I - 1): PRINT CHR$ (7);: HTAB 40: 
VTAB PEEK (37) + 1: PRINT " "; : HTAB 40: 
VTAB PEEK (37): GOTO 1530 
1770 PRINT I$; :HP = POS (0): 1$ (I) = I$(I) + 1$ 
: ON L%(I) = LEN (I$(I)) GOTO 1760: PRINT 
LEFTS (UL$,L%(I) - LEN (I$ (I))>;” V 

TAB PEEK (37): HTAB HP + 1: REM VISUALIZZ 
A E COSTRUISCE STRINGA DI INPUT 
1780 GOTO 1530 
1790 REM ** INPUT DATA ** 

1800 VTAB 23: HTAB 12: CALL - 868: PRINT CHR$ 
(7);: REM BIP PER FORMATO DELLA DATA 
1810 VTAB 24: HTAB 6: FLASH : PRINT NORM 

AL : PRINT M FORMATO DATA = GG/MM/AA "; : F 
LASH : PRINT NORMAL 

1820 I$(I) = "":I$ = "" 

1830 VTAB V%(MI) + 2 * (I - 1): REM POSIZIONE V 
ERTICALE DELLA LINEA DI INPUT 
1840 HTAB T% ( I) : IF ED THEN PRINT LEFTS (Dl$( 
I),2) SPC( 1) MID$ (Dl$ (I),3,2) SPC( 1) RI 
GHT$ (Dl$(I),2); : HTAB T%(I): GOTO 1860 
1850 PRINT LEFT$ (UL$,L%(I)); : HTAB T%(I): REM 
POSIZIONE ORIZZONTALE DELLA LINEA DI INPU 
T 

1860 HTAB T% (I) + 2: PRINT : HTAB T%(I) + 5 

: PRINT M /"; : HTAB T%(I) 

1870 IF PL THEN PL = 0: RETURN 
1880 FOR J = 1 TO 3: REM GIORNO,MESE,ANNO 

1890 FOR K = 1 TO 2: REM 2 CIFRE PER GIORNO,MES 

E,ANNO 

1900 T = T% (I) + 3 * (J - 1) + (K - 1): REM T=P 
OSIZIONE TAB INPUT 

1910 IF K = 1 AND ED THEN HTAB T: GOTO 1930 

1920 IF K = 1 THEN HTAB T: PRINT CHR$ (95); C 

HR$ (95); 

l'<30 POKE - 16368, 0: HTAB T: GET 1$: REM INPUT 
DI UN CARATTERE 

1940 IF 1$ = CHR$ (13) AND ED AND J * K > 1 TH 
EN PL = 1: GOSUB 1840: GOTO 1880 
1950 IF 1$ = CHR$ (13) AND ED THEN I$(I) = Dl$ 
(I):PL = 1: GOSUB 1840: GOTO 2180: REM INP 
UT SEGUENTE 

1960 IF 1$ = CHR$ (13) AND LEN (I$(I)) > 0 AN 
D LEN (1$ (I)) < 6 THEN PRINT CHR$ (7);: 
GOTO 1800 

1970 IF 1$ = CHR$ (13) THEN 1$ (I) = GOTO 2 


1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 


2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 


180 

IF 1$ = CHRS (27) AND ED THEN HTAB T%(I) 
: PRINT L$(II,I); :I = 1-1: GOTO 1460 


IF 1$ = 

- 868:1 
IF 1$ = 
PRINT 
IF 1$ = 

J = 1: 


CHRS (27) THEN HTAB T%(I): CALL 

=1-1: GOTO 1460 

CHRS (8) AND J = 1 AND K = 1 THEN 


CHRS (7); : 1$ (I) = 
CHRS (8) AND K = 1 
HTAB T: PRINT CHRS 
) ; : 1$ (I) = ,,,, : GOTO 1900 
IF 1$ = CHRS (8) AND K = 1 
J = 2: HTAB T: PRINT CHRS 
); : I$ (I) = LEFTS ( 1$ (I),2) : 
IF 1$ = CHRS (8) AND K = 2 
K = K - 1: HTAB T - 1:1$ (I) 


GOTO 1930 


AND J 
(95) ; 


= 2 THEN 
CHRS (95 


AND J 
(95); 


= 3 THEN 
CHRS (95 
GOTO 1900 
AND J > 1 THEN 
LEFTS (I$( 


2 THEN K = K - 1 
PRINT CHRS (95); 


I),2 * J - 2): PRINT CHRS (95); CHRS (95) 

; : GOTO 1900 
IF 1$ = CHRS (8) AND K 
: HTAB T - 1:1$ (I) = ,,M 
CHRS (95);: GOTO 1900 
IF 1$ = CHRS (17) THEN 2330: REM A Q=RITOR 
NA AL MENU PRINCIPALE O AL DISCO 
IF 1$ < "0" OR 1$ > "9" THEN 1930 
IF 1$ < CHRS (32) THEN PRINT CHRS (7);: 

GOTO 1930 

HTAB T% (I) + 3 * (J - 1) + (K - 1): PRINT 
1$; CHRS (21); 

I$ (I) = I$ (I) + 1$: REM COSTRUISCE LA STRI 
NGA DELLA DATA 
NEXT K 

IF J > 1 THEN 2140 

IF VAL ( LEFTS (1$ (I),2)) > 31 OR VAL ( 

LEFTS (1$ (I),2)) < 1 THEN PRINT CHRS (7) 

; : I$ (I) = HTAB T%(I): GOTO 1890 

GOTO 2160 

IF VAL ( MIDS (I$ (I) ,3,2)) < 1 OR VAL ( 

MIDS (I$(I),3,2)) > 12 THEN PRINT CHRS ( 

7); :I$(I) = LEFTS (I$(I),2): HTAB T% (I) : 

GOTO 1890 

IF ED AND J = 3 AND 1=2 THEN PL = 1:I$(I 
) = LEFTS (1$ ( I),6) : GOTO 1900 
NEXT J 

IF ED THEN HTAB T: POKE - 16368,0: GET X 
$ : IF X$ < > CHRS (13) THEN 2170 
NEXT I 

IF ED THEN 2210 

RF = 0: REM AZZERA FLAG LETTURA—NUOVI DAT 

I —OCCORRE AGGIORNARE LA LETTURA 

FOR I = 5 TO 7: IF 1$ (I) = "" THEN 2240 

IF LEN (1$ (I)) = 8 AND ED THEN 2240 

I $(I) = LEFTS (1$(I),2) + MIDS (1$ 

(I) ,3,2) + 'V + RIGHTS (I$(I),2) 

NEXT 

T% = T% + 1 : REM CONTATORE RECORD 

IF ED THEN RETURN : REM INSERIMENTO COMPL 

ETO PER QUESTA VOCE 

REM ** IMMAGAZZINA VARIABILE. TEMP ** (Continua) 
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deo (default) e stampante a 80 o a 
132 colonne. Se la vostra stampante 
non è una Prowriter o un’Imagewri- 
ter, leggete il paragrafo Personalizza¬ 
zione del programma. Premete 
<retum> per avanzare di record in re¬ 
cord e premete <esc>per uscire. L’ou¬ 
tput sulla stampante è in forma di 
abulato. 


Nel modo 132 colonne vengono 
stampati tutti i sette campi. Nel mo¬ 
do 80 colonne possono esserne stam¬ 
pati solo quattro. 

• La visualizzazione di 
tutte le voci introdotte. Preve¬ 
de un output molto simile a quello 
dell'opzione Lista gli incompleti, 
con la differenza che vengono visua¬ 


lizzate tutte le voci introdotte nel fi¬ 
le, siano stati o no restituiti gli og¬ 
getti prestati (figura 2). 

Per modificare i record, selezionate 
Modifica dati e usate le frecce sini¬ 
stra e destra (o<retum>). Potete an¬ 
che premere S, oppure s, per selezio¬ 
nare un dato record per numero. 

Per modificare il record che si vede 


2280 FOR I = 1 TO 7 
2290 T$ (T%,I) = 1$ (I): NEXT 
2300 HOME 
2310 GOTO 1370 

2320 REM ** CONTROLLA N. DEGLI INPUT * 

2330 IF T% = 0 THEN 430 

2340 GOTO 680: REM MENU SCRITTURA DISCO 
2350 REM ** LISTA/RICERCA DATI ** 

2360 IF VAL (NR$) = 0 THEN GOTO 1070: REM MES 
SAGGIO NESSUN DATO 

2370 TEXT : HOME :UN = 0:DS = 0: REM FLAG OGGET 
TO NON TROVATO DA LISTA/RICERCA 
2380 MI = 3:M2 = 1:N = 4:X$ = "** " + MU$(0,2) 

+ •• **": GOSUB 410: PRINT : PRINT L$ 

2390 R = 27: GOTO 490 

2400 TEXT : HOME :K = 0: REM CONTATORE RICERCA 
2410 X$ = "** " + MU$(3,2) + " **": GOSUB 410 

: PRINT : PRINT L$ 

2420 IF UN THEN LINE = 7: GOTO 2480 
2430 VTAB V%(1) 

2440 FOR I = 1 TO 8: HTAB 20 - LEN (MU$(1,I)) 

/ 2: PRINT MU$ (1,1) : PRINT : NEXT 
2450 MI = 5:M2 = 1:H%(5) = 7:V%(5) = 5:N - 8: G 
OTO 520 

2460 REM * *CAMPO= MU$(1,LINE) ** 

2470 IF X$ = CHR$ (13) THEN 2690 
2480 VTAB 2: CALL - 958: VTAB 3: HTAB 4: PRINT 
"CAMPO RICERCA = ";MU$ (1, LINE) : VTAB 4: H 
TAB 1: PRINT L$: POKE 34,4: VTAB 19: PRINT 
L$ 

2490 PRINT TAB( 5)"<";: INVERSE : PRINT "RTN"; 

: NORMAL : PRINT "> MENU RICERCA" 

2500 IF UN THEN 2610 

2510 INVERSE : PRINT " A L";: NORMAL : PRINT " =L 
ISTA TUTTO - O - CAMPO RICERCA"; 

2520 IF LINE > 4 THEN VTAB 24: HTAB 11: PRINT 
"FORMATO DATA= GG/MM/AA"; 

2530 VTAB 23: HTAB 5: PRINT "==> "; LEFTS (UL$, 
25);" <=="; 

2540 POKE 34,22: POKE 35,23: POKE 33,25: POKE 3 
2,8: REM IMPOSTA FINESTRA INPUT PER IMPEDÌ 
RE LO SCORRIMENTO 
2550 VTAB 23: HTAB 1 
2560 CALL 940:IN$ = MID$ (IN$,1) 

2570 NI$ = IN$ 

2580 IF IN$ = CHR$ (12) THEN POKE 35,24: POKE 
34,4: POKE 32,0: POKE 33,40: VTAB 23: HTA 
B 1: CALL - 958: GOSUB 2840: GOTO 2520: R 
EM LISTA TUTTI I DATI 

2590 IF LEN (IN$) = 0 THEN 2400: REM MENU SCEL 
TA CAMPO 

2600 REM * CERCA STRINGA * 

2610 IF NOT RF THEN POKE 35,24: POKE 34,4: PO 
KE 32,0: POKE 33,40: VTAB 23: HTAB 1: CALL 
- 958: GOSUB 910:IN$ = NI$ 

2620 POKE 35,24: POKE 34,4: POKE 32,0: POKE 33, 
40: VTAB 19: CALL - 958: PRINT L$: PRINT 
2630 PRINT " <";: INVERSE : PRINT "P"; : NORMAL 
: PRINT ">= STAMPA VIDEO" TAB( 22)"<";: IN 
VERSE : PRINT "RTN";: NORMAL : PRINT "> = C 
ONTINUA": PRINT TAB( 13)"<";: INVERSE : P 
RINT "ESC";: NORMAL : PRINT "> MENU" 

2640 POKE 35,17 

2650 HOME : FOR I = 1 TO VAL (NR$) 

2660 IF UN = 1 AND LEN (L$(1,7)) = 0 THEN IN$ 

= L$(I,7):Z = I :K = K + 1: GOTO 2700 
2670 IF UN THEN 2690 

2680 IF LEFTS (L$(I,LINE), LEN (INS)) = INS TH 
EN K = K 4 1:Z = I: GOTO 2700 
2690 NEXT : GOTO 2790 

2700 POKE 34,6: VTAB 3 + (UN = 0) + DS: HTAB 16 
: PRINT " ";Z" DI " VAL (NRS)" ";: POKE 34 
,4: VTAB V%(1) : FOR J = 1 TO 7 : IF J = LIN 
E THEN INVERSE 

2710 VTAB 5 4-2* (J - 1): HTAB H%(1): PRINT MU 
$d,J)" - 
2720 NORMAL 

2730 PRINT TAB( T%(J))L$(I,J); : CALL - 868: N 


EXT : REM VISUALIZZA 

2740 VTAB 23: HTAB 20: POKE - 16368,0: GET X$ 
2750 IF X$ = CHRS (27) THEN 2360 
2760 IF X$ = "P" OR X$ = CHRS (112) THEN GOSU 
B 4310: GOTO 2700: REM STAMPA VIDEO 
2770 IF X$ = CHRS (13) OR X$ = CHRS (21) THEN 
2690: REM CORRISPONDENZA SEGUENTE 
2780 GOTO 2740 

2790 IF K = 0 THEN HOME : VTAB 10: HTAB 10: PR 
INT "NESSUNA CORRISPONDENZA" 

2800 POKE 35,24: VTAB 20: HTAB 1: CALL - 958: 

VTAB 22: HTAB 1: PRINT "PREMI <RETURN> PER 
CONTINUARE...";: POKE - 16368,0: GET X$: 
HTAB 1: CALL - 868: POKE 35,17 
2810 IF UN THEN LINE = 1 
2820 GOTO 2360 

2830 REM * LISTA TUTTI I DATI * 

2840 IF NOT RF THEN GOSUB 910: REM LEGGE IL F 
ILE 

2850 POKE 35,17: VTAB 5: HOME 
2860 FOR I = 1 TO VAL (NRS) 

2870 PRINT TAB( 5)I"> "L$(I,LINE) 

2880 IF PEEK (37) = 15 THEN VTAB 17: HTAB 1: 

PRINT "PREMI <RETURN> PER CONTINUARE...";: 
POKE - 16368,0: GET X$: POKE 35,17: HOME 
2890 NEXT 
2900 REM 
2910 RETURN 

2920 REM * IMPOSTA STAMPANTE SU 10 CPI * 

2930 NNS = CHRS (27) + "N": REM CODICE PER IMA 

GEWRITER E PROWRITER 
2940 PR = 0 
2950 RETURN 

2960 REM * IMPOSTA STAMPANTE SU 17 CPI * 

2970 NNS = CHRS (27) + "Q": REM CODICE PER IMA 

GEWRITER E PROWRITER 
2980 PR = 1 
2990 RETURN 

3000 REM ** SCORRIMENTO DATI ** 

3010 TEXT : HOME 

3020 X$ = "** " + MUS (3, PEEK (963)) + " **": G 
OSUB 410: PRINT : PRINT L$ 

3030 IF NOT RF THEN GOSUB 910: REM LEGGE IL F 
ILE SE NON ANCORA LETTO 

3040 N = 7:MI = 1: GOSUB 490: REM STAMPA I CAMP 
I 

3050 IF DL THEN 3090 
3060 VTAB 20: PRINT L$ 

3070 VTAB 22: HTAB 5: PRINT "<";: INVERSE : PRI 
NT "RTN";: NORMAL : PRINT "> O ";: INVERSE 
: PRINT NORMAL : PRINT " SCORRE AV 

ANTI " 

3080 VTAB 23: INVERSE : PRINT NORMAL : P 

RINT " SCORRE INDIETRO";: PRINT " <";: 

INVERSE : PRINT "ESC";: NORMAL : PRINT "> 
MENU" 

3090 FOR I = 1 TO VAL (NRS) 

3100 FOR J = 1 TO 7 

3110 VTAB 5 4-2* (J - 1) : HTAB T% (J) - 3: PRIN 
T " - ";L$(I,J); : CALL - 868: REM VISUALI 
ZZA DATI 
3120 NEXT J 

3130 VTAB 3: HTAB 16: PRINT " ";I" DI " VAL (NR 
$)" "; 

3140 VTAB 24: HTAB 19 - 3 * ED: GET X$: POKE - 
16368,0 

3150 IF I = VAL (NRS) THEN IF X$ = CHRS (13) 
OR X$ = CHRS (21) OR X$ = CHRS (10) THE 
N I = 1: GOTO 3100: REM TORNA ALL'INIZIO 
3160 IF X$ = CHRS (13) OR X$ = CHRS (21) OR X 
$ = CHRS (10) THEN NEXT 
3170 IF I = 1 AND (X$ = CHRS (8) OR X$ = CHRS 
(11)) THEN I = VAL (NRS): GOTO 3100: REM 
CONTINUA SCORRIMENTO INDIETRO 
3180 IF X$ = CHRS (8) OR X$ = CHRS (11) THEN 
1=1-1: GOTO 3100 

3190 IF X$ = CHRS (27) AND DL = 1 THEN RETURN 

(Continua) 
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sul display premete E, oppure e. Co¬ 
me nel modo di introduzione dei da¬ 
ti, premendo <ESC> potete tornare 
indietro di un campo in modo di po¬ 
ter reintrodurre dati. Anche in questo 


caso la freccia sinistra elimina l'ulti¬ 
mo carattere introdotto. 

Per uscire daH'opzioneModifica da¬ 
ti premete <CTRL>Q. Se non sono 
stati accettati con la pressione di 


<RETURN> tutti i sette campi del 
record, venite ricondotti al primo re¬ 
cord del file. Non potete uscire se 
non sono stati accettati tutti e sette i 
campi. Ogni volta che viene editato 


: REM ESCE DALLA ROUTINE MODIFICA 
3200 IF X$ = CHR$ (27) AND ED = 1 THEN DL = 0: 

RETURN : REM ESCE DALLA ROUTINE MODIFICA 
3210 IF (X$ = CHR$ (101) OR X$ = "E") AND ED = 

1 THEN II - I: RETURN : REM SCELTA OPZION 
E MODIFICA 

3220 IF (X$ = CHR$ (115) OR X$ = "S") AND ED = 

1 THEN 3260: REM SELEZIONA N. RECORD 
3230 IF (X$ = CHR$ (100) OR X$ - "D") AND DL = 

1 THEN II - I: RETURN : REM ELIMINA OPZIO 
NE SCELTA—VA A CANCELLA 
3240 IF X$ = CHRS (27) THEN 2360 
3250 GOTO 3140 

3260 POKE 34, 23 : POKE 35, 24 : POKE 33,17: HOME : 

PRINT "N.REC"; 

3270 POKE 32,5: POKE 33,9 

3280 HOME : INPUT "";X$: IF X$ = "" THEN 3310 
3290 IF VAL (X$) < 1 OR VAL (X$) > VAL (NR$) 

THEN PRINT CHRS (7);: PRINT : GOTO 3280 
3300 I = VAL (X$) 

3310 POKE 32,0: POKE 33,40: POKE 34,5: POKE 35, 
24: VTAB 24: HTAB 1: PRINT INVERSE : 

PRINT "S"; : NORMAL : PRINT ">= N.REC 
GOTO 3100 

3320 TEXT : HOME : REM MENU VIDEO/STAMPANTE 
3330 MI = 4:M2 = 1:N = 5:X$ = "** " + MU$(3, PE 
EK (963)) + " **": GOSUB 410: PRINT : PRIN 
T L$ 

3340 R = 26: GOTO 490 

3350 DS = 1:UN = 1 :ALL = 0: POKE 963,LINE: GOTO 
3320:LINE = 3: REM IMPOSTA FLAG DI NON RE 
STITUZIONE-AZZERA TUTTI I FLAG 
3360 UN = 0 :ALL = 1: POKE 963,LINE: GOTO 3320:L 
INE = 4: REM IMPOSTA TUTTI FLAG-AZZERA FLA 
G DI NON RESTITUITO 

3370 IF UN = 1 THEN 2400: REM FA SCORRERE SULLO 
SCHERMO OGGETTI NON RESTITUITI 
3380 GOTO 3010: REM VISUALIZZA SULLO SCHERMO TU 
TTE LE VOCI 

3390 LINE = 2: GOTO 2360 
3400 REM ** MODIFICA I DATI ** 

3410 IF VAL (NRS) = 0 THEN GOTO 1070: REM MES 
SAGGIO NESSUN DATO 

3420 TEXT : HOME :M1 = 3:M2 = 1:N = 3:X$ = "**" 
+ MU$(0,3) + M **": GOSUB 410: PRINT : P 
RINT L$ 

3430 ED = 1:DL = 1: REM USA ENTRAMBI I FLAG 
3440 VTAB 20: PRINT L$ 

3450 VTAB 22: HTAB 5: PRINT INVERSE : PRI 

NT "RTN"; : NORMAL : PRINT "> O "; : INVERSE 
: PRINT NORMAL : PRINT " SCORRE AV 

ANTI " 

3460 VTAB 23: INVERSE : PRINT NORMAL : P 

RINT " SCORRE INDIETRO";: PRINT " <••;; 

INVERSE : PRINT "ESC";: NORMAL : PRINT "> 
MENU" 

3470 VTAB 24: PRINT "<";: INVERSE : PRINT "S";: 

NORMAL : PRINT ">= N.REC " TAB( 24) 

"<";: INVERSE : PRINT "E";: NORMAL : PRINT 
"> MODIFICARE"; 

3480 POKE 35,19: POKE 34,4: HOME : PRINT : GOSU 
B 3030: REM USA ROUTINE 'SCORRIMENTO' PER 
MODIFICARE 

3490 IF X$ = CHRS (27) THEN 3830: REM ESCE DA 
EDITA-DECI SIONE FINALE 

3500 FOR I = 1 TO 7:T$(II,I) = L$(II,I): NEXT : 

REM CONSERVA I VALORI PER IL VIDEO 
3510 FOR I = 5 TO 7:D1$(I) = LEFTS (L$(II,I),2 
) + MIDS (L$(II,I),4,2) + RIGHTS (L$(II, 
I),2) : NEXT : REM IMPACCA DATE SENZA SEGNI 

3520 POKE 35,24: POKE 34,1: REM APRE FINESTRA 
3530 VTAB 19: HTAB 1: CALL - 958 
3540 GOSUB 1390:ED = 0:: REM USA ROUTINE DI INP 
UT PER MODIFICA 

3550 IF I < 8 THEN FOR I = 1 TO 7:L$(II,I) = T 
$ (II,I) : NEXT : GOTO 3580 
3560 FOR I = 1 TO 7:T$(II,I) = I$(I): IF L$(II, 
I) < > T$ (II,I) THEN L$(II,I) = T$ (II,I): 

WR = 1: REM SCRIVE IL FLAG DELL'OGGETTO CA 
MBIATO 
3570 NEXT 
3580 I = II 

3590 GOTO 3420: REM RIPETE 


3600 REM ** CANCELLA I DATI ** 

3610 IF VAL (NRS) = 0 THEN GOTO 1070: REM MES 
SAGGIO NESSUN DATO 

3620 TEXT : HOME :DL = 1:ED = 0:X$ = "**" + MUS 
(0,4) + " **": GOSUB 410: PRINT : PRINT L$ 
3630 REM DL=FLAG CANCELLAZIONE 
3640 VTAB 20: PRINT L$ 

3650 HTAB 6: INVERSE : PRINT NORMAL : P 

RINT " ";: INVERSE : PRINT "—>";: NORMAL 
: PRINT " O <";: INVERSE : PRINT "RTN";: 
NORMAL : PRINT "> PER SCORRERE" 

3660 PRINT : HTAB 2: PRINT INVERSE : PRIN 

T "D";: NORMAL : PRINT "> CANCELLA I DATI 
<";: INVERSE : PRINT "ESC";: NORMAL : P 
RINT "> MENU"; 

3670 POKE 35,19: POKE 34,4: HOME : PRINT : GOSU 
B 3030: REM USA ROUTINE 'SCORRIMENTO' PER 
CANCELLARE 

3680 IF X$ = CHRS (27) THEN 3830: REM MENU PRI 
NCIPALE 

3690 REM ** ELIMINA SCELTA FATTA ** 

3700 A = PEEK (35):B = PEEK (34):C = PEEK (3 
3):D = PEEK (32):WR = 1 

3710 POKE 35,14: POKE 34,7: POKE 33,20: POKE 32 
,18: HOME 

3720 PRINT "*******************•• : HTAB 1: PRINT 
HTAB 19: PRINT PRINT "* ";: FL 

ASH : REM 19 * 

3730 PRINT " CANCELLAZIONE ";: NORMAL : PRINT " 
PRINT "* in print " 

* CORSO PRINT "************* 

******•';: REM 8,8,5,5, SPAZI-19 * 

3740 FOR X = 1 TO 1000: NEXT 

3750 NR = VAL (NRS): IF NR = 1 THEN NR = 0:NR$ 
= "0": GOTO 3830: REM DECISIONE FINALE 
3760 IF I < NR THEN FOR J = I TO NR - 1 : FOR K 
= 1 TO 7:L$(J,K) = L$(J + 1, K) : NEXT : NE 
XT :NR = NR - 1: GOTO 3780 
3770 IF NR = I THEN NR = NR - 1 
3780 NRS = STRS (NR) 

3790 POKE 35,15: POKE 34,6: POKE 33,16: POKE 32 
,14: HOME 

3800 POKE 35,A: POKE 34,B: POKE 32,D: POKE 33,C 

3810 GOTO 3670: REM RIPETE 

3820 REM ^DECISIONE FINALE <ESC>* 

3830 IF NOT WR THEN ED = 0 :DL = 0: GOTO 430: R 
EM NESSUNA MODIFICA 
3840 TEXT : HOME 

3850 VTAB 12: HTAB 3: PRINT "VUOI SALVARE LE MO 
DIFICHE? (S/N)";: CALL - 958: HTAB 35: PR 
INT "N";: HTAB 35: POKE - 16368,0: GET X$ 
: PRINT X$ 

3860 IF X$ = "S" OR X$ = CHRS (115) THEN WR = 
0: GOTO 1090: REM SCRIVE L'INTERO FILE 
3870 IF X$ = "N" OR X$ = CHRS (110) OR X$ = C 
HRS (13) THEN HOME : VTAB (12): PRINT TA 
B( 5)"MODIFICHE ANNULLATE - LEGGO IL FILE" 

: ED = 0: GOSUB 910: GOTO 430 
3880 GOTO 3850 
3890 REM ** FINE ** 

3900 TEXT : HOME : VTAB 10: INPUT "SEI SICURO D 
I VOLER FINIRE ? ";YN$: ON YNS < > "S" GO 

TO 430: POKE 963,0: CALL - 936: VTAB 10: 
HTAB 19: PRINT "E;iNE" : END 
3910 REM ** STAMPA 80/132 COL ** 

3920 TEXT : HOME :K = 0: REM CONTATORE 
3930 IF NOT RF THEN PRINT : GOSUB 910: REM LE 
GGE FILE DATI 

3940 PRINT : PRINT D$;"PR#1" 

3950 PRINT CHRS (9); STRS (80 + 52 * PR);"N": 

REM NIENTE OUTPUT VIDEO 
3960 PRINT NNS; 

3970 PRINT 

3980 IF UN = 1 THEN PRINT SPC( 31 + 30 * PR) " 
SOLO RECORD INCOMPLETI" 

3990 IF ALL = 1 THEN PRINT SPC( 31 + 30 * PR) 
"PROSPETTO COMPLETO DATI" 

4000 GOSUB 4300: REM LINEA LUNGA 
4010 PRINT : PRINT PS ( 1); SPC ( 10);P$(2); SPC( 
15);MU$(1,3); 

4020 IF NOT PR THEN PRINT SPC ( 14 + 13 - LE 
N (MUS(1,3)));"DATA" 

4030 IF NOT PR THEN PRINT SPC ( 70);PS (3): GO 
TO 4060 
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un record venite riportati al modo 
che vi permette di avanzare di record 
in record. Per uscire da questo modo 
premete <ESC>. 

L'opzione Elimina dati ha un pro¬ 


cedimento molto simile a quello di 
Modifica. I tasti per l'esame dei re¬ 
cord sono gli stessi. L'unica differen¬ 
za è che per eliminare un record si 
preme D, oppure d. Il record attual¬ 


mente visualizzato viene eliminato 
dalla memoria. Tuttavia quando usci¬ 
te dal modo eliminazione con l’uso 
del tasto <ESC> durante la visualiz¬ 
zazione del record potete scegliere di 


4040 PRINT SPC ( 25 - LEN (MU$(1,3)));"COMMENT 
I"; SPC( 25);"DATA"; SPC( 6);"DATA"; SPC( 

6);"DATA" 

4050 PRINT SPC( 103);P$(4); SPC ( 3)P$(5) SPC ( 
2) P$(6) 

4060 GOSUB 4300 
4070 PRINT 

4080 IF ALL = 1 AND PR = 1 THEN 4210 
4090 IF UN = 1 AND PR = 0 THEN 4120 
4100 IF ALL - 1 AND PR - 0 THEN K = 1: GOTO 412 
0 

4110 IF UN - 1 AND PR = 1 THEN 4210 
4120 FOR I = 1 TO VAL (NR$) 

4130 IF ALL = 1 THEN 4160 

4140 IF LEN (L$(1,7) ) = 0 THEN K - K + 1: GOTO 
4160 

4150 NEXT : IF K = 0 THEN PRINT TAB( 20 + 40 
* PR)"NESSUN OGGETTO IN SOSPESO...": GOTO 
4280 

4160 PRINT L$(1,1); 

4170 PRINT SPC( 22 - LEN (L$ (1,1) ) ) L$ (I, 2) ; 

4180 PRINT SPC( 25 - LEN (L$(I,2)))L$(I, 3) ; 

4190 PRINT SPC( 25 - LEN (L$(I, 3) ) ) L$(1,5) : I 

F I < VAL (NR$) THEN NEXT 

4200 GOTO 4280: REM FINE DEL PROSPETTO 
4210 FOR I = 1 TO VAL (NR$) 

4220 IF UN = 1 AND LEN (L$(I,7)) = 0 THEN 4240 
4230 IF UN THEN NEXT I: GOTO 4280 
4240 PRINT L$ (1,1); 

4250 POKE 36,22: PRINT L$(I,2);: POKE 36,47: PR 
INT L$(1,3); : POKE 36, 72: PRINT L$(I,4); 
4260 POKE 36,104: PRINT L$(I,5);: POKE 36,115: 

PRINT L$(I,6); : POKE 36, 125: PRINT L$(I,7) 
4270 NEXT I: GOTO 4280 

4280 PRINT : PRINT "**** FINE DEL PROSPETTO *** 


4290 

4300 

4310 

4320 

4330 

4340 

4350 


4360 


4370 

4380 

4390 

4400 

4410 

4420 

4430 


4440 

4450 

4460 


4470 

4480 

4490 

4500 

4510 


4520 

4530 


4540 

4550 

4560 

4570 

4580 

4590 


PRINT : GOSUB 4300: PRINT : PRINT D$;"PR#0 
": GOSUB 2930: GOTO 2360 

FOR I = 1 TO 80 + 53 * PR: PRINT "=";: NEX 

T : RETURN : REM LINEA LUNGA 

FA = 128 :SP = 160 :Q = - 16384:A = 1 

POKE 34,22: POKE 34,23: POKE 33,1 

VTAB 23: HTAB 1: PRINT CHR$ (13);: PRINT 

D$;"PR#1": FOR P = A TO 19 

PRINT CHR$ (9);"80N": PRINT NN$; 

B = FA*P + A- (984 * INT ( (P - A) / 8) 

) + 895: VTAB P: FOR K = B TO B + 39:PK = 
PEEK (K):PK = PK + 64 * (PK < 32) 

PK = PK - 64 * (PK > 95 AND PK < SP): PRIN 
T CHR$ (PK - 95 * (PK = 255 OR PK = 127)) 
;: IF PEEK (Q) < > 155 THEN NEXT : VTAB 
A: NEXT 

PRINT : PRINT : PRINT 

POKE - 16368,0: PRINT D$;"PR#0" 

POKE 35,24: POKE 34,0: POKE 33,40 

RETURN 

END 

REM ** DATI MENU PRINCIPALE ** 

DATA " INSERIMENTO DATI","LISTA/RIC 

ERCA DATI"," MODIFICA DATI "," CANCELLA 
DATI"," FINE PROGRAMMA" 

DATA 7,12 

REM ** MENU AGGIUNTA DATI ** 

DATA PRESTATO A,PROPRIETARIO,OGGETTO,C 

OMMENTO,DATA PRESTITO,RESTITUZIONE PREVIST 
A,DATA RESTITUZIONE,MENU LISTA/RICERCA 
DATA 5,1 

REM ** INPUT TAB,LUNGHEZZA ** 

DATA 14,26,16,24,11,29,12,28,25,8,25,8 

2 5 8 

rem'** menu LETTURA DISCO ** 

DATA " SALVA DATI SU DISCO"," ANNULL 
A DATI-RICOMINCIA",MENU PRINCIPALE (NON SA 
LVA) 

DATA 8,8 

DATA " MENU PRINCIPALE "," RI 

CERCA PER CAMPO DATI", MOSTRA TUTTI GLI INC 
OMPLETI," MOSTRA TUTTI I DATI" 

DATA 8,8 

DATA 162,0,32,117,253,160,2 
DATA 138,145,105,200,169 ,0 
DATA 145,105,200,169,2,145 
DATA 105,76,57,213 

DATA " VIDEO",STAMPANTE-10 


CPI (80 COL),STAMPANTE-17 CPI (132 COL)," 
MENU LISTA/RICERCA" 

4600 DATA 8,8 

4610 REM STAMPATO INTESTAZIONI 

4620 DATA "PRESTATO A ","PROPRIETÀ 1 ","PRESTAT 
O ","PRESTITO","PREVISTA" ,"RESO ": RE 
M 12,10,10,8,8,8+ CARATTERI 

4630 REM ** INTRAPPOLAMENTO ERRORI ** 

4640 TEXT : HOME : CALL - 3288:PK = PEEK (222 
): POKE 216,0: PRINT D$"CLOSE" 

4650 X$ = "** ERRORE INCONTRATO **": GOSUB 410: 
PRINT : PRINT L$: VTAB 12: 

4660 IF PK = 9 THEN PRINT "DISK FULL ERROR ";: 
GOTO 4730 

4670 IF PK = 10 THEN PRINT "FILE LOCKED ERROR 
IN GOTO 4730 

4680 IF PK = 6 THEN PRINT "FILE NOT FOUND ERRO 
R ";: GOTO 4730 

4690 IF PK = 8 THEN PRINT "I/O ERROR GOTO 

4730 

4700 IF PK = 11 THEN PRINT "DISK SYNTAX ERROR" 
; : GOTO 4 730 

4710 IF PK = 4 THEN PRINT "WRITE-PROTECT ERROR 
";: GOTO 4730 


4720 

4730 

PRINT "ERRORE "PK 
PRINT "ALLA LINEA 

" PEEK 

(218) + PEEK 

(21 

4740 

9) * 256 

VTAB 22: HTAB 1: 

PRINT " 

PREMI <RETURN> 

PER 


CONTINUARE..."; : 

POKE 

- 16368,0: GET 

X$ : 

4750 

PRINT 

IF PEEK (963) = 

0 THEN 

TEXT : HOME : 

GOS 


UB 4770: GOTO 140 
4760 ON EF GOTO 180,700,910,1100 
4770 INVERSE 

4780 X$ = "": FOR I = 1 TO 39:X$ = X$ + " ": NE 
XT : REM UNO SPAZIO FRA VIRGOLETTE 
4790 PRINT X$ 

4800 FOR I - 1 TO 10: VTAB I: HTAB 1: PRINT " " 
;: HTAB 39: PRINT " ";: NEXT : PRINT 
4810 PRINT X$: NORMAL 

4820 X$ = "REMINDER": VTAB 4: GOSUB 410 

4830 X$ = "DI MARK R. CRAVEN": VTAB 5: GOSUB 41 

0 

4840 X$ = "COPYRIGHT (C) 1986": VTAB 6: GOSUB 4 
10 

4850 X$ = "BY APPLICANDO VTAB 7: GOSUB 410 

4860 X$ = "MICROSPARC, INC": VTAB 8: GOSUB 410 

4870 POKE - 16368,0: VTAB 21: PRINT "PREMI <RE 
TURN> PER CONTINUARE...";: GET X$: RETURN 
4880 NR$ = STR$ ( VAL (NR$) - T%):T% = 0: GOTO 
430 

4890 REM ** ROUTINE LETTURA E POKE CURSORE A BA 

RRA 

4900 FOR I = 0 TO 171: READ ML: POKE 768 + I,ML 
; NEXT I: RETURN 

4910 DATA 32,190,222,32,103,221,32,251,230,202 
,134,2,134,4,32,190,222,32,103, 221, 32, 2 
51,230,202,134,3 

4920 DATA 32,190,222,32,103,221,32,251,230,202 
,134,6,32,190,222,32,103,221, 32,251,230,2 
02,134,7,165,4 

4930 DATA 32,193, 251,164,7,177,40,201,160,208 
,5,136,16,247,48,19,164,7,177, 40,41,63,14 
5,40,136,196 

4940 DATA 6,16,245,173,16,192,174,0,192,224,13 
6,240,34,224,149,240,30,224, 141,208,241,1 

64.7.177.40.9 

4950 DATA 128,145,40,136,196,6,16,245,165,4,56 
,229,2,133,4,230,4,173,16,192, 96,164,7,17 

7.40.9 

4960 DATA 128,145,40,136,196,6,16,245,165,4,22 
4,149,240,14,197,2,208,6,165, 3,133,4,208, 
152,198,4 

4970 DATA 16,148,197,3,208,6,165,2,133,4,16,1 
38,230,4,208,134,162 


Checksum del listato 1 

APPLE CHECKER 3.0 
NOME FILE: REMINDER 
TIPO: A 

LUNGHEZZA: 3984 
CHECKSUM : B3 
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PRESTATO A 

PROPRIETÀ" 

OGGETTO 

COMMENTI 

DATA 

PRESTITO 

DATA 

PREVISTA 

DATA 

RESO 

CARDO GIUSEPPE 

ACCAME VINCENZO 

GIOCO DEL MONOPOLI 

PER UN PAIO DI SETTIMANE 

03/02/86 

05/03/86 

21/03/86 

ROSSI GUGLIELMO 

VARTE GIULIO 

DISCHETTO LODE RUMO 

PROVA A BATTERE IL CAMPIONE 

10/02/86 

01/11/86 


CAMPBELL DEBBY 

ZACCO LUIGI 

MONITOR A COLORI 

PER QUALCHE LAVORO GRAFICO 

16/03/86 

15/05/86 

10/05/86 

GUGLIELMI ROBERTO 

KAPPA GIORGIO 

CHIAVI INGLESI 

PER RIPARARE L'AUTO 

01/04/86 

05/04/86 

04/04/86 

TORTI VINCENZO 

TARALLI GIOVACI 

DISCHETTO VISICALC 

PER CALCOLI 

01/04/86 

15/04/86 


ROSTI CARLO 

BARBERI GIANNI 

SCIOLINA 

PER SISTEMAZIONE SCI 

16/03/86 

01/04/86 



**** FINE DEL PROSPETTO **** 


Figura 2. Prospetto completo dei dati. 


non salvare su dischetto le elimina¬ 
zioni. Il file del dischetto sarà invece 
riletto in memoria e sostituirà i dati 
in memoria da cui sono state fatte le 
eliminazioni. La risposta di default 
alla domanda: Salvi le modifiche 
(s/n)? è no, perché non si possano di¬ 
struggere dati battendo inavvertita¬ 
mente un tasto. Per inizializzare il 
salvataggio premete S oppure s, esat¬ 
tamente come nel modo Modifica. 

Introduzione 
e caratteristiche 

Per digitare REMINDER introdu¬ 
cete il programma in Applesoft visi¬ 
bile nel listato 1 e consultate il 
paragrafo Personalizzazione del pro¬ 
gramma; vi si spiega come allestire 
gli altri database, cioè come cambia¬ 
re due linee del listato per ottenere 
Custode del freezer, Agenda degli ac¬ 
quisti, Agenda delle incombenze o 
Programmatore delibilo. 

Il programma comprende diverse 
routine speciali che, volendo, potre¬ 


te utilizzare nei vostri programmi. 
C'è una routine di input di qualsiasi 
cosa per l’immissione di dati di vir¬ 
gole, virgolette e così via che è la 
stessa impiegata nel programma ME- 
MODESK (Applicando n.22 pag. 
14). La routine viene inserita in me¬ 
moria con POKE a linea 340. Le re¬ 
lative istruzioni DATA sono alle li¬ 
nee 4550-4590 e l’uso della routine 
è dimostrato nelle linee 940 e 980. 

Una routine di selezione sul menù 
mediante cursore a barra in inverse 
permette due parametri supplementa¬ 
ri per il cursore a barra: la posizione 
deirestremità sinistra della barra e la 
lunghezza della barra. 

La linea 550 mostra la sintassi di 
questa routine, che è: CALL 
mem,topline,botline, lmrgin^mrgin 
dove topline e botline sono le righe 
più alta e più bassa del menù, 
lmrgin e rmrgin sono il margine si¬ 
nistro e la lunghezza della barra, e 
mem è l’indirizzo di caricamento di 
CURSOR.BAR.il. 

Nelle linee 4330-4400 è inclusa u¬ 


na routine in Basic per la stampa del¬ 
le videate di dati su una stampante. 
Questa routine stampa solo le 20 ri¬ 
ghe superiori dello schermo, per evi¬ 
tare la stampa dei prompt che si tro¬ 
vano nella parte inferiore. 

Una routine EDIT permette di arre¬ 
trare agevolmente nei campi durante 
l’introduzione dei dati. La linea 1600 
è un esempio del suo utilizzo nella 
routine Introduci i dati. 

Personalizzazione 
del programma 

Reminder è predisposto per le 
stampanti Apple Imagewriter e C. I- 
toh Prowriter. Se avete una stampan¬ 
te diversa, cambiate le linee 2930 e 
2970. Ad esempio per l'Epson FX- 
80 fate queste modifiche: 

2930 NN$ = CHR$(18): REM 
STAMPA CONDENSATA 
PER EPSON FX-80 
2970 NN$ = CHR$(15): REM 
STAMPA NORMALE PER 
EPSON FX-80 

Se avete un'altra stampante, con¬ 
sultate il suo manuale: troverete i co¬ 
mandi di conversione. 

Potete personalizzare Reminder in 
modo che tenga nota di qualsiasi co¬ 
sa. Tutto quel che dovete fare è cam¬ 
biare i nomi dei campi e le corri¬ 
spondenti intestazioni per i tabulati, 
rispettivamente a linea 4460 e a li¬ 
nea 4620. Nella figura 3 sono indi¬ 
cate le modifiche occorrenti. Ogni 
versione modificata dev'essere salva¬ 
ta su un dischetto separato, e usata 
solo con i suoi dati. 

f \ 

Questo programma è disponibile 

su dischetto. L’elenco, i prezzi 
e le modalità d’ordine di questo 
e degli altri dischetti disponibili 
sono riportati nella rubrica 
Disk Service. 

N 


• Custode del freezer: 

4460 DATA ALIMENTO,PESO,PASTO PREVISTO,COMMENTI,SURGELAMENTO,SCADEN¬ 
ZA, CONSUMO 

4620 DATA "ALIMENTO ","PESO ","USARE IL ",""SURGEL. ","SCADEN¬ 

ZA ","USATQ IL": REM 4,5,3 SPAZI 

• Agenda degli acquisti: 

4460 DATA ARTICOLO ORDINATO,ORDINATO DA,VENDITORE,COMMENTI,DATA ORDI¬ 
NE, ARRIVO PREVISTO IL,ARRIVO 

4620 DATA "ARTICOLO ","ORDINANTE "," ATTESO IL ","ORDINATO","","ATTE¬ 
SO IL", "RICEVUTO":REM 4 SPAZI 

• Agenda delle incombenze: 

4460 DATA COMPITO ASSEGNATO,PERSONA,UTENSILI,COMMENTI,ASSEGNAZIONE, TER¬ 
MINE, ULTIMATO 

4620 DATA "COMPITO ","PERSONA ","FINIRE IL ","AFFIDATO","TERMI¬ 

NE ","ULTIMATO": REM 6,5 SPAZI 

• Programmatore dell'orto: 

4460 DATA TIPO DI PIANTA,POSIZIONE,FORNITORE,COMMENTI,PIANTATA IL,RACCO¬ 
GLIERE IL, RACCOLTA IL 

4620 DATA "PIANTA ",,"POSIZIONE","COGLIERE","PIANTATA","COGLIE¬ 

RE" , "RACCOLTA": REM 6 SPAZI 

• Reminder 

(queste istruzioni data sono comprese nell'originale): 

4460 DATA NOME DEL RICEVITORE,PROPRIETARIO DELL'OGGETTO,OGGETTO PRESTA¬ 
TO, COMMENTI , PRESTITO, RESTITUZIONE PREVISTA,RESTITUZIONE OGGETTO 
4620 DATA "PRESTATO A ","PROPRIETÀPRESTATO ","PRESTATO","ATTESO 
","RESO 

Figura 3. istruzioni per le modifiche. 


© By Nibbfe e Applicando 
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ASSICURAZIONI 


Può cadere mentre lo si trasporta da una stanza all'altra, può essere 
vittima dei topi d'auto e perfino distrutto a martellate: i pericoli 
per un personal computer sono sempre in agguato. Ma con la 
polizza messa a punto da Applicando e dagli esperti della Ras... 

Metti un casco 
al tuo computer 




Chi acquista un personal compu¬ 
ter, dicono le statistiche, sborsa una 
cifra compresa in media tra i tre e i 
10 milioni di lire per avere il pro¬ 
prio ideale in fatto di monitor, tastie¬ 
ra, lettori di floppy disk e stampan¬ 
ti, Insomma: si tratta di uno sforzo 
economico notevole (anche se un 
personal è in grado di ripagarsi in 
breve tempo). Ma fin dal suo primo 
giorno di lavoro il computer rischia 
di cadere vittima dei più disparati in¬ 
cidenti: può essere preso di mira dai 
ladri, può guastarsi perché una be¬ 
vanda rovesciata rovina i circuiti o 
per il maldestro intervento di un 
bambino o di un adulto inesperto. 

Senza contare poi tutti i pericoli 
in agguato per i portatili. Soprattut¬ 
to quando, come adesso, è tempo di 
vacanze e chi possiede un Ile si pre¬ 
para a imporre al suo versatile perso¬ 
nal viaggi in automobile o soggior¬ 
ni in camere d’albergo, rischiando an¬ 
cora una volta di essere vittima di 
furti o di incidenti stradali. Perché 
nella malaugurata ipotesi di subire 
un tamponamento, il fedele personal 
sistemato apparentemente al sicuro 
nel bagagliaio dell'auto potrebbe ri¬ 
portare seri danni. 


citati. La soluzione a tutti questi pro¬ 
blemi è ovvia: basta assicurare il 
computer proprio come si assicura 
l'automobile. Basta però una visita 
al proprio assicuratore per scoprire 
che le compagnie sono in grado tut- 
t’al più di offrire polizze che prevedo¬ 
no il furto e danni causati da guasti 
all'impianto elettrico, da sovratensio¬ 
ni, bruciature, mancati o difettosi 
funzionamenti delle apparecchiature 
di comando. Ma con l'esclusione dei 
guasti dovuti alla negligenza del 
proprietario dell'apparecchio, alle a- 
zioni dolose di terzi o verificatisi du¬ 
rante il trasporto. 

Non si parla mai, insomma, di in¬ 
cidenti che possono verificarsi duran- 


Ma anche un Macintosh o un Ile 
possono diventare compagni di viag¬ 
gio, esponendosi ai pericoli appena 
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te i trasporti casa-ufficio o della clas¬ 
sica tazzina di caffè che finisce sulla 
tastiera durante una pausa di lavoro. 
Il fatto è che le compagnie di assicu¬ 
razione non hanno studiato polizze 
ad hoc per gli elaboratori personali, 
ma hanno adattato alle esigenze di 
queste apparecchiature contratti pree¬ 
sistenti, solitamente dedicati generi¬ 
camente alla salvaguardia delle appa¬ 
recchiature elettroniche o dei grandi 
centri di elaborazione dei dati. E’ ov¬ 
vio che per questo tipo di computer 
il discorso assicurativo fila alla perfe¬ 
zione, dato che mettersi sottobraccio 
un computer di tre metri per due e 
portarlo con sé al mare è piuttosto i- 
nusuale. 

Nessuna speranza quindi per i com¬ 
puter con padroni distratti o grandi 
viaggiatori? Niente paura. C'è la po¬ 
lizza studiata proprio a misura di per¬ 
sonal da Applicando insieme alla 
compagnia di assicurazione Ras. Il 
contratto copre il furto anche quando 
il computer viene rubato dall’auto¬ 
mobile e in caso di scippo, e tutti 
gli eventi accidentali, anche quelli 
provocati dalla dabbenaggine dell'as¬ 
sicurato. E vengono risarciti anche i 
danni, purtroppo piuttosto frequenti, 
causati da cadute a terra del computer 
quando viene trasportato da una stan¬ 
za all'altra: in questi casi un banale 
inciampo può costare qualche mi¬ 
lione. 

La polizza Ras-Applicando, poi, 
ha pensato a un altro aspetto solita¬ 
mente ignorato dalle normali poliz¬ 
ze informatiche, la responsabilità ci¬ 
vile. Anche in questo caso chi sce¬ 
glie la polizza Applicando è in una 
botte di ferro quando, solo per citare 
un esempio, una collaboratrice, una 
segretaria o un'amica dovesse per er¬ 
rore infilare i capelli nella stampan¬ 
te, magari quando deve posizionare 
la carta, e finire al ponto soccorso 
per abrasioni al cuoio capelluto (qua¬ 


si nessuno infatti bada alla frase 
scritta generalmente in inglese e po¬ 
co visibile che, dall'interno delle 
stampanti, ammonisce contro rischi 
di questo tipo). 

Ecco, in dettaglio, le condizioni 
della polizza Ras-Applicando, riser¬ 
vata a chi possiede un personal com¬ 
puter del valore superiore a 2,5 mi¬ 
lioni di lire, Iva compresa (a far fede 
sono i prezzi di listino della casa co¬ 
struttrice, mentre non viene tenuto 
conto di sconti e prezzi di favore). I 
più significativi sono naturalmente 
tutti gli eventi compresi nell'elenco 
di quelli che danno diritto al risarci¬ 
mento. Citarli potrebbe sembrare u- 
na pignoleria. In realtà, e lo sa bene 
chi abbia avuto l'auto seriamente 
danneggiata da una grandinata, molte 
polizze escludono eventi quali som¬ 
mosse, mareggiate e, appunto, la 
grandine, che possono essere assicu¬ 



rati soltanto inserendo in polizza ga¬ 
ranzie particolari (con sovrapprezzi 
altrettanto particolari). 

Applicando e la Ras, invece, paga¬ 
no in caso di incendio (anche i danni 
causati dai pompieri), di caduta di un 
fulmine, di esplosione, scoppio e 
implosione, di inondazioni, uragani, 
valanghe e caduta massi, di caduta di 
aerei o di cose da essi trasportate, di 
corti circuiti, di imperizia, negligen¬ 
za ed errate manovre, anche dolose e 
colpose. Poi i trasporti e gli smon¬ 
taggi per lavori di pulizia o di manu¬ 




tenzione, furti, rapine, terremoti, ma¬ 
remoti, eruzioni vulcaniche, tumul¬ 
ti, atti terroristici... 

Insomma: per inventare un inciden¬ 
te che non sia stato preso in conside¬ 
razione dagli esperti della Ras ci vuo¬ 
le una bella fantasia. L'unico modo 
per non essere risarciti sarebbe pren¬ 
dere il fedele computer a martellate, 
provocando così "danni dovuti a do¬ 
lo dell'assicurato". 

Infine i costi. Come è noto le 
compagnie di assicurazione basano i 
loro prezzi sulle probabilità di ri¬ 
schio (maggiore è il rischio, maggio¬ 
re il premio da pagare per assicurar¬ 
lo). Fortunatamente i personal com¬ 
puter sono quasi sempre destinati a 
una vita piuttosto tranquilla e questo 
fatto si concretizza in esborsi assicu¬ 
rativi limitati: se la somma assicura¬ 
ta è compresa tra due e tre milioni di 
lire si pagano 50 mila lire, per som¬ 
me di tre/cinque milioni 65 mila, 
per somme di cinque/sette milioni 
80 mila e 100 mila lire se il valore 
assicurato è compreso tra sette e die¬ 
ci milioni. 120 e 150 mila lire do¬ 
vranno invece sborsare i possessori 
di computer del valore, rispettiva¬ 
mente, di 10/15 e 15/20 milioni di 
lire. 

Nei suoi due primi anni di vita la 
polizza Ras-Applicando ha avuto un 
notevole successo. "L'incidente che 
si è verificato più spesso tra i nostri 
assicurati è stato il furto del perso¬ 
nal computer lasciato incustodito 
nel bagagliaio dell'auto", dice Gior¬ 
gio Barbieri della Ras, "C'è stato per¬ 
fino un nostro cliente che ha subito 
due furti nel giro di un mese, rice¬ 
vendo altrettanti risarcimenti. Non è 
mancato neppure un bambino terribi¬ 
le, che con una chiave inglese ha 
messo fuori uso il Macintosh fiam¬ 
mante di papà". 

Chi volesse sottoscrivere la poliz¬ 
za Ras-Applicando può utilizzare il 
tagliando pubblicato a pagina 109. 

Guido Ricciardi 
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Per quanto l'MS Basic per il Mac abbia molte caratteristiche che non 
si trovano nel linguaggio Applesoft dell'Apple II, i programmi text-oriented 
che sono scritti in Applesoft possono essere tradotti per il Mac con poco 
sforzo. Dato poi che si contano a migliaia i programmi in Applesoft 
pubblicati in forma di listato, le tecniche di traduzione descritte in questo 
articolo possono procurare al Mac un'immensa biblioteca di programmi. 

Mille programmi 
per Macintosh 


E* enorme il numero dei program¬ 
mi in Applesoft a disposizione. In 
confronto i programmi per il Macin¬ 
tosh sono relativamente pochi. Per¬ 
ché non rifornire la vostra biblioteca 
di programmi per il Mac converten¬ 
do in Microsoft Basic i programmi 
in Applesoft? In questo articolo con¬ 
frontiamo i due linguaggi, e vi indi¬ 
chiamo le vie più semplici e dirette 
per convertire i vostri programmi. 

I programmi in Applesoft hanno 
un aspetto molto simile a quello dei 
programmi in Microsoft Basic (MS 
Basic); ogni linea comincia con un 
numero di linea, che nell’MS Basic 
è facoltativo; si possono mettere nel¬ 
la stessa linea diverse istruzioni, se¬ 
parate da un segno di due punti; in 
entrambi i linguaggi potete caricare 
(LOAD), eseguire (RUN) e salvare 
(S AVE) i programmi. 

Qualche volta una conversione dal- 
l'Applesoft all’MS Basic si riduce a 
cambiare certe parole chiave dell' Ap¬ 
plesoft nelle equivalenti parole del- 
1 MS Basic. In altri casi il program¬ 
matore deve scavare nel codice per 
compiere un’ulteriore analisi. 

Notate bene, però, che non si sta 
parlando delle istruzioni grafiche: 
l’Applesoft ha buone capacità grafi¬ 
che e molti programmi le utilizza¬ 
no, ma la conversione della grafica 
in MS Basic esula dall’ambito di que¬ 
sto articolo. 

Variabili, assegnazioni 
e funzioni matematiche 

L'Applesoft comprende solo tre ti¬ 
pi di variabile: a virgola mobile, in¬ 
tera e stringa, e matrici di ciascun ti¬ 
po. I nomi delle variabili comincia¬ 


no con una lettera e possono conte¬ 
nere soltanto lettere o numeri. Fate 
attenzione alla lunghezza dei nomi 
delle variabili: l’Applesoft riconosce 
infatti solo le prime due lettere, per 
quanto il nome possa avere qualsiasi 
lunghezza. Questo significa che le 
variabili COMINCIA e CO sarebbe¬ 
ro considerate in un programma in 
Applesoft un'unica variabile, mentre 
l'MS Basic distinguerebbe fra i due. 
Come l’MS Basic l'Applesoft usa il 
segno di per cento (%) per le variabi¬ 
li intere e il segno di dollaro ($) per 
le variabili stringa. Le matrici sono 
trattate allo stesso modo. 

Le istruzioni di assegnazione sono 
gestite allo stesso modo nei due lin¬ 
guaggi. LET è facoltativa, le funzio¬ 
ni matematiche sono le stesse, e tut¬ 
ti gli operatori aritmetici, relazionali 
e logici sono identici. I numeri ca¬ 
suali funzionano in modo lievemen¬ 
te diverso. L'uso della funzione 
RND con zero o con un numero po¬ 
sitivo produce funzioni equivalenti. 
Invece quando il valore è negativo 


l’Applesoft "semina" il generatore 
prima di prelevare il valore casuale 
seguente, mentre nell'MS Basic que¬ 
sto viene fatto mediante l'istruzione 
RANDOMIZE, e non con il sempli¬ 
ce impiego di un numero negativo. 
Così il seguente codice Applesoft: 

10 X=RND(5) 

20 Y=RND(0) 

30 Z=RND(-5) 

si presenterebbe in questo modo in 
MS Basic: 

10 X=RND(5) 

20 Y=RND(0) 

30 RANDOMIZE -5: Z=RND(5) 

Funzioni utente, 
loop e subroutine 

I programmatori possono definire 
proprie funzioni sia in Applesoft sia 
in MS Basic. Le differenze sono so¬ 
lo nell’aspetto: in MS Basic non è 
possibile avere uno spazio fra FN e 

11 nome della funzione, e quindi quel¬ 
lo che in Applesoft è: 

DEF FN CUBE(X) = X*X*X 


Figura 1. Esempio di conversione della routine d'errore dell'Apple. 
Versione Applesoft: 

10 ONERR GOTO 100 

100 POkÈ’216,0 : REM DISATTIVA INTRAPPOLAMENTO ERRORE 
110 EC=PEEK(222) : REM RICEVE CODICE ERRORE 

120 IF EC=4 THEN PRINT "TOGLI DAL DISCO LA PRÓTEZIONE IN SCRITTURA: 

INPUT "PREMI RETURN PER CONTINUARE":A$ 

130 ONERR GOTO 100 : REM RIAWIA INTRAPPOLAMENTO ERRORE 
140 RÉSUMÉ 


Versione MS Basic:, 

ON ERROR GOTO ErrTrap 
ErrTrap: 

IF ERR=70 THEN PRINT "IL DISCO PROTETTO IN SCRITTURA" 
INPUT "PREMI RETURN PER CONTINUARE":A$ 

RÉSUMÉ 
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in MS Basic sarebbe convertito in: 
DEF FNCUBE(X) = X*X*X 
E la routine dell’Applesoft: 

10 DEF FN CUBE(X) = X*X*X 
20 INPUT A 
30 PRINT FN CUBE(A) 

40 GOTO 20 

sarebbe convertita così in MS Basic: 
10 DEF FN(CUBE(X) = X*X*X 
20 INPUT A 
30 PRINT FNCUBE(A) 

40 GOTO 20 

L’istruzione FOR-NEXT funziona 
allo stesso modo in Applesoft e in 
MS Basic, tranne quando il valore i- 
niziale è maggiore del valore finale 
per i loop ascendenti. I loop FOR- 
NEXT dell’Applesoft sono sempre e- 
seguiti almeno una volta, mentre 
l’MS Basic controlla i valori prima 
di eseguire il loop. Vedete questo e- 
sempio: 

10 FOR I = 10 TO 9 
20 PRINT ”L’APPLESOFT STAM¬ 
PERÀ QUESTO - IL MAC NO” 

30 NEXT 
40 PRINT I 


Figura 2. Esempio di conversione 
dei file sequenziali. 

Versione Applesoft: 

10 D$=CHR$(4) 

20 PRINT D$;"OPEN TEST.A" 

30 PRINT D$;"WRITE TEST.A" • 
40 PRINT "ABC": PRINT "DEF" 

50 FOR 1=1 TO 3 
60 PRINT I 
70 NEXT I 

80 A$="TUTTO VA BEN" 

90 PRINT A$ 

100 PRINT D$;"CLOSE TEST.A" 

110 PRINT D$;"OPEN TEST.A" 

120 PRINT D$;"READ TEST.A" 

130 INPUT H$,S$ 

140 FOR J-l TO 3 
150 INPUT NUM(J) 

160 NEXT J 
170 INPUT AL$ 

180 PRINT D$;"CLOSE TEST.A" 

190 PRINT H$ 

200 PRINT S$ 

210 PRINT NUM( 1 ) ,NUM(2),NUM(3) 
220 PRINT AL$ 

230 END 


Versione MS Basic 

20 OPEN "TEST.A" FOR OUTPUT AS #1 
40 PRINT #1,"ABC":PRINT #1,"DEF" 
50 FOR 1=1 TO 3 
60 PRINT #1, I 
70 NEXT I 

80 A$="TUTTO VA BEN" 

90 PRINT #1, A$ 

100 CLOSE #1 

110 OPEN "TEST.A" FOR INPUT AS #1 
130 INPUT #1,H$,S$ 

140 FOR J=1 TO 3 
150 INPUT #1,NUM(J) 

160 NEXT J 
170 INPUT #1,AL$ 

180 CLOSE #1 
190 PRINT H$ 

200 PRINT S$ 

210 PRINT NUM(1),NUM(2),NUM(3) 

220 PRINT AL$ 

230 END 


L'Applesoft accede al loop, stam¬ 
pa il messaggio a linea 20, incre¬ 
menta I da 10 a 11 e poi controlla se 
può proseguire. L'MS Basic control¬ 
la per vedere se deve entrare nel 
loop, vede che non deve e procede 
con il programma a linea 40 dove il 
valore di I è uguale a 10, anziché al¬ 
ni calcolato dall’Applesoft. 

Quando traducete un loop dell’Ap¬ 
plesoft la conversione solitamente è 
semplice. Un loop che faccia uso di 
costanti, come FOR I = 1 TO 10, è 
mantenuto identico. Se i valori ini¬ 
ziale e finale sono variabili, cosic¬ 
ché è possibile che il valore iniziale 
sia maggiore di quello finale, occor¬ 
re fare qualche ritocco in modo che 
il loop venga eseguito una volta. 

L’uso delle subroutine è molto si¬ 
mile nei due linguaggi, dato che GO¬ 
TO, ON-GOTO, GOSUB, RETUR- 
N, ON-GOSUB, STOP ed END fun¬ 
zionano tutte nello stesso modo. I 
programmatori in Applesoft dispon¬ 
gono però di un comando POP (che 
dovrebbe essere usato raramente) il 
quale può rimuovere gli indirizzi di 
ritorno dello stack in modo che pos¬ 
sano fare il return in posti diversi 
dalla subroutine che li ha chiamati. 
Questo comando toglie l'ultimo RE¬ 
TURN dallo stack, cosicché quando 
un RETURN viene eseguito ritorna 
al posto che precede quello. 

Gestione errori, 
matrici e stringhe 

Sia i programmatori in MS Basic 
sia quelli in Applesoft sono in gra¬ 
do di intrappolare i propri errori anzi¬ 
ché ricorrere a routine incorporate. 
L’Applesoft usa ONERR GOTO in 
luogo dell’ON ERROR GOTO del- 
l’MS Basic. La gestione dell’errore 
che si trova nei programmi Appleso¬ 
ft avrà però bisogno, con molta pro¬ 
babilità, di un’estesa riscrittura per 
poter funzionare in MS Basic. L*Ap¬ 
plesoft utilizza un PEEK(222) per 
leggere il codice delferrore e 
PEEK(219)*256 + PEEK(218) per 
determinare il numero della linea nel¬ 
la quale si è verificato l'errore. Essi 
devono essere sostituiti rispettiva¬ 
mente dalle variabili ERR ed ERL, 
dato che l’MS Basic è tanto gentile 
da avere queste variabili incorporate 
nel linguaggio. I numeri d’errore re¬ 
stituiti sono però diversi : i numeri 
d’errore dell’MS Basic sono elencati 
nell’appendice B del manuale Micro¬ 
soft Basic. Confrontateli con i mes¬ 
saggi d’errore dell’Applesoft (tavola 


Figura 3. Esempio di conversione 
dei file casuali 

Versione Applesoft: 

10 D$=CHR$(4) 

20 PRINT D$;"OPEN CFILE,L100" 

30 PRINT D$:"WRITE CFILE,R0" 

40 PRINT "JOE SCHMOW" 

50 PRINT "12 MAIN ST" 

60 PRINT "OVUNQUE" 

70 PRINT "00000" 

80 PRINT D$;"WRITE CFILE,R1" 

90 PRINT "JANE KANE" 

100 PRINT "10 ELM ST" 

110 PRINT "ALTROVE" 

115 PRINT "99999" 

120 PRINT D$;"CLOSE CFILE" 

130 PRINT D$;"OPEN CFILE,L100" 

135 ONERR GOTO 230 
137 1=0 

140 PRINT D$;"READ CFILE,R"; I 
150 INPUT N$,S$,C$,Z$ 

160 PRINT N$ 

170 PRINT S$ 

180 PRINT C$ 

190 PRINT Z$ 

200 1 = 1+1 
210 GOTO 140 

230 PRINT D$;"CLOSE CFILE" 

240 END 

Conversione in MS Basic: 

20 OPEN "CFILE" AS #1 LEN=100 
30 FIELD #1, 35 AS N$, 30 AS S$, 

25 AS C$, 10 AS Z$ 

40 LSET N$=JOE SCHMOW" 

50 LSET S$="l2 MAIN ST" 

60 LSET C$=OVUNQUE" 

70 LSET Z$="00000" 

80 PUT #1,1 

90 LSET N$="JANE KANE" 

100 LSET S$="10 ELM ST" 

110 LSET C$="ALTROVE" 

115 LSET Z$="99999" 

117 PUT #1,2 
120 CLOSE #1 

130 OPEN "CFILE" AS #1 LEN=100 
135 FIELD #1, 35 AS N$, 30 AS S$, 
25 AS C$, 10 AS Z$ 

137 1=1 

140 GET #1,1 

145 IF EOF(1) THEN 230 

150 PRINT N$ 

160 PRINT S$ 

170 PRINT C$ 

180 PRINT CVD(Z$) 

190 1=1+1 
220 GOTO 140 
230 CLOSE #1 
240 END 

1) e fate le necessarie sostituzioni 
nelle vostre routine d'errore. 

L'Applesoft richiede un CALL - 
3288 per ripulire lo stack quando 
vuol tornare da una routine d’errore 
con GOTO in luogo del suo norma¬ 
le RÉSUMÉ. Invece l'MS Basic 
può usare la forma RÉSUMÉ nume¬ 
ro di linea, e quindi il CALL - 
3288:GOTO 115 dell'Applesoft di¬ 
venta soltanto RÉSUMÉ 115. 

Inoltre l’MS Basic cancella in mo¬ 
do diverso la trappola d'errore. In un 
programma Applesoft P0KE 216,0 
dev'essere sostituito da ON ERROR 
GOTO 0 per cancellare l'intrappola- 
mento d’errore. Questo però deve es¬ 
sere fatto solo alfestemo della routi¬ 
ne d’intrappolamento delferrore per i 
programmi in MS Basic. Per i pro- 
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grammi in Applesoft è importante 
inserire il POKE all’interno di una 
routine d’errore. Se è stato predispo¬ 
sto un ONERR, qualsiasi errore sarà 
inviato alla routine d’errore. Purtrop¬ 
po se compare un errore all'interno 
della routine d’errore stessa ne deriva 
un loop senza fine. L’MS Basic è ab¬ 
bastanza in gamba da stampare il 
normale messaggio d’errore e fermar¬ 
si se è all’interno della routine d'erro¬ 
re quando avviene un errore. Perciò 
dovete ignorare durante la traduzione 
il POKE 216,0 se si trova all’inter¬ 
no della routine d'errore. E dato che 
per l’Applesoft l’intrappolamento de¬ 
gli errori viene solitamente disattiva¬ 
to all’interno della routine d'errore, 
esso viene normalmente riattivato 
prima di riprendere con RÉSUMÉ. 
Questo non sarà necessario per l’MS 
Basic. L'esempio visibile in figura 
1 è una routine d’errore campione ri¬ 
scritta per l'MS Basic. 

Le matrici sono dimensionate allo 
stesso modo nei due computer. Esse 
hanno la stessa dimensione di de¬ 
fault di 11 elementi (numerati da 0 a 
10). Analogamente le stringhe sono 
molto simili fra loro. Per entrambi i 
linguaggi tutte le funzioni relative 
alle stringhe sono compatibili. L’Ap¬ 


plesoft non accetta valori zero nelle 
funzioni LEFT$ e RIGHT$. L’MS 
Basic invece gestisce questi casi, e 
quindi può darsi che riusciate a sem¬ 
plificare un codice in Applesoft che 
fa controlli speciali per vedere se ci 
siano queste condizioni. 

I mezzi di input e output dei due 
Basic variano notevolmente a causa 
dei diversi processori, delle diverse 
considerazioni di progettazione del si¬ 
stema, delle diverse capacità di me¬ 
moria e delle diverse opinioni. 

L'Applesoft usa IN# per prelevare 
informazioni da un dispositivo di in¬ 
put come una tastiera o un disk dri¬ 
ve. Questo comando dice al compu¬ 
ter di andare allo specifico dispositi¬ 
vo per tutto l'ulteriore input. Per i- 
dentificare i suoi dispositivi l’Apple- 
soft usa i numeri da zero a sette. Per 
esempio IN#2 significa che per l’in¬ 
put sarà utilizzato il dispositivo inse¬ 
rito nello slot 2 dell’hardware. IN#0 
significa che sarà usata la tastiera. E' 
raro che il comando IN# compaia in 
un programma. Oltre all’IN#0 appe¬ 
na menzionato solo IN#6 ha probabi¬ 
lità di comparire, e questo comando 
fa ripartire il sistema quando nello 
slot 6 si trova inserita una scheda di 
controllo del disk drive. 


Il comando INPUT è l’istruzione 
dell’Applesoft più comunemente uti¬ 
lizzata per la lettura delle informazio¬ 
ni. A meno che non sia eseguita l’i¬ 
struzione IN# o non sia aperto per la 
lettura un file su disco INPUT accet¬ 
ta informazioni dalla tastiera. Que¬ 
sto comando dovrebbe funzionare be¬ 
ne in MS Basic (dei file su disco si 
parlerà più avanti). 

Il GET dell’Applesoft non è affat¬ 
to analogo al GET dell’MS Basic. 
Come INPUT lo si può usare con al¬ 
tri dispositivi e file su disco, ma 
GET può essere usato per leggere un 
solo carattere dalla tastiera senza at¬ 
tendere che sia premuto il tasto <Re- 
tum> e senza visualizzarlo sullo 
schermo. Per i programmatori in 
MS Basic questo sarebbe simile alla 
funzione INPUT$. Quindi 
10 GETAS 

dell'Applesoft potrebbe essere cam¬ 
biato in: 

10 A$=INPUT$(1) 

Le istruzioni READ, DATA e RE- 
STORE sono identiche nei due lin¬ 
guaggi, tranne che l’MS Basic per¬ 
mette di specificare un numero di li¬ 
nea nell’istruzione RESTORE per 
specificare i DATA da rileggere. 

Molti programmi in Applesoft fan- 


n azione dalle 9 alle 5, 
e anche dopo. 


“Lavorare con Macintosh, giocare 
con Macintosh”, un libro, una miniera 
di idee per usare il tuo Macintosh 
in ufficio e a casa tua. 

Un libro per imparare a tenere una 
perfetta contabilità o progettare 
al computer il giardino di casa tua. 

Un libro che offre più di 20 proposte 
originali che integrano i potenti 
programmi software. 

Inoltre, c’è “ Il libro deM’A p ple Macintosh ”, 
un testo base che ti introdurrà nel 
mondo di Macintosh. 

“Lavorare con Macintosh, giocare con 
Macintosh” e “Il libro dell’Apple 
Macintosh” sono in tutte le librerie. 

ARNOLDO MONDADORI EDITORE 
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no ricorso a paddle e joystick. Le po¬ 
sizioni del pulsante sono ottenute 
con PEEK(-16287) per la paddle 0, 
PEEK(-16286) per la paddle 1 e 
PEEK(-16285) per la paddle 2. Il 
pulsante della paddle 3 non può es¬ 
sere letto. Quando il PEEK della lo¬ 
cazione appropriata ha un valore 
maggiore di 127 si sta premendo il 
pulsante. Il comando PDL dell'Ap¬ 
plesoft legge dalla paddle specificata 
un valore compreso fra 0 e 255. 

Una cosa che i programmatori del- 
l'MS Basic potrebbero trovare inte¬ 
ressante in un programma in Apple¬ 
soft è un gruppo di istruzioni fittizie 
fra i comandi PDL. L’hardware del¬ 
l’Apple II non può prelevare i valori 


di paddle in modo abbastanza rapido 
per l’Applesoft, perciò se vedete i- 
struzioni come: 

X=PDL(0): FOR 1=1 TO 10: NEXT 
I: Y=PDL(1) 

potrete probabilmente rimuovere il 
loop, perché si tratta soltanto di un 
ritardo inteso a sostare fino a quando 
l’hardware si è assestato. 

Se state traducendo un programma 
in Applesoft che impiega le paddle o 
un joystick, le relative routine deb¬ 
bono essere riscritte per l’uso del 
mouse. Ma questo argomento sarà ri¬ 
servato a un altro articolo, in quanto 
la riscrittura richiederebbe un vasto 
intervento chirurgico sul programma 
in Applesoft. 


Quanto all’output, i programmi 
in Applesoft usano l’istruzione PR# 
per inviarlo a certi dispositivi, come 
lo schermo o la stampante. Si tratta 
di una cugina dell’istruzione IN# esa¬ 
minata prima. L’istruzione PR# è u- 
sata più comunemente per attivare u- 
na stampante. A questo si provvede 
con PR#1 per i sistemi ordinari. Da 
questo punto fino a che viene esegui¬ 
ta un'istruzione PR#0 tutto l’output 
è inviato alla stampante. Per e- 
sempio: 

10 PRINT "QUESTO VA ALLO 
SCHERMO" 

20 PRINT CHR$(4)"PR#1" 

30 PRINT "QUESTA E’ UNA PRO¬ 
VA DELLA STAMPANTE" 

40 PRINT CHR$(4)"PR#0" 

50 PRINT "DA CAPO ALLO 
SCHERMO" 

Nel codice qui sopra è stato invia¬ 
to allo schermo un messaggio, è sta¬ 
ta attivata la stampante, su di essa è 
comparso un messaggio, e poi la 
stampante è stata rimessa a riposo, e 
l’ultimo messaggio è andato sullo 
schermo. Un modo per fare la stessa 
cosa in MS Basic è semplicemente: 
10 PRINT "QUESTO VA ALLO 
SCHERMO" 

20 LPRINT "QUESTA E’ UNA 
PROVA DELLA STAMPANTE" 
30 PRINT "DA CAPO ALLO 
SCHERMO" 

Un altro metodo sarebbe quello di 
designare un numero di file per tut¬ 
to l’output, a seconda che si tratti 
dello schermo o della stampante, e u- 
sare l'istruzione PRINT# per tutto 
l’output: 

10 OPEN "SCRN:" FOR OUTPUT 
AS #3 

20 PRINT #3, "QUESTO VA AL¬ 
LO SCHERMO" 

30 OPEN "LPT1:" FOR OUTPUT 
AS #4 

40 PRINT #4, "QUESTA E’ UNA 
PROVA DELLA STAMPANTE" 
50 PRINT #3, "DA CAPO ALLO 
SCHERMO" 

Potrebbe sembrare un lavoro in 
più, ed è molto più lento nell’esecu¬ 
zione, ma se un programma in Ap¬ 
plesoft fa quanto segue: 

IF P$="Y" THEN PRINT CHR$(4) 
"PR#1": GOSUB 1000: PRINT 
CHR$ (4)"PR#0" 

potete vedere perché sarebbe conve¬ 
niente spostarsi semplicemente su 
un altro dispositivo quando neces¬ 
sario. 

Lo schermo del Macintosh presen¬ 
ta non poche sfide ai traduttori dal- 
l’Applesoft. Per cominciare, la sua 


Tavola 1. Messaggi d'errore dell'A pplesoft e dell'MS Basic 


Applesoft MS Basic Significato 


0 

1 

NEXT senza FOR 

1 

a 

Linguaggio richiesto non disponibile 

2 

b 

Parametri del comando troppo grand 

3 

8 

Dispositivo non collegato 

4 

70 

Disco protetto in scrittura 

5 

62 

Fine dei dati nel file di testo 

6 

53 

File non trovato sul disco 

7 

74 

Il volume del disco non corrisponde 

8 

57 

Errore di I/O 

9 

61,67 

Disco pieno 

10 

c 

Il file sul disco è protetto 

11 

64 

Nome del file o parametro non valilo o virgola 

12 

67 

Nessun buffer disponibile per I/O 

13 

54 

Il tipo di file non corrisponde 

14 

7 

Programma troppo grande per la memoria 

15 

12 

Non è un comando diretto 

16 

2 

Errore di sintassi 

20 

55 

File ancora aperto (solo ProDOS) 

22 

3 

RETURN senza GOSUB 

42 

4 

Fine dei DATA 

53 

5 

Quantità illegale assegnata alla funzione 

69 

6 

Overflow 

77 

7,14 

Memoria esaurita 

90 

8 

Numero di linea inesistente 

107 

9 

Indice non valido per una matrice 

120 

10 

Matrice ridimensionata 

133 

11 

Divisione per zero 

163 

13 

Non corrispondenza di tipo 

176 

15 

Stringa troppo lunga 

191 

16 

Formula troppo complessa 

224 

18 

Funzione non definita 

254 

d 

Risposta non valida a un’istruzione di INPUT 

255 

e 

Tentato interrupt <CTRL>C 


a. Non applicabile al Microsoft Basic. 

b. L'errore nel Microsoft Basic compare come #5. ’illegal function cali' (chiamata 
di funzione illegale). 

c. Il Microsoft Basic scriverà err oneamente su un file che è stato protetto 
tramite il Finder. 

d. Per quanto il Microsoft Basic generi un errore 'Redo from start’ (rifà dall'inizio) 
quando viene ricevuto un input inadatto (per esempio quando viene inmessa una 
stringa ed è atteso un input numerico) non c'è modo di intrappolare Terrore. 

e. L’equivalente in Microsoft Basi c dell’interrupt <CTRL>C dell’Appbsoft è 
<Command>; può essere intrappolato con il comando dell'MS Basic ON BREAK. 
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Un Club per te. 

Un Club nato per 
aiutarti 

a imparare senza 
fatica il Basic. 

Un Club nato per 
fornirti routine 
già pronte che ti 
permetteranno di 
scrivere programmi 
da professionista 
per il tuo Macintosh. 
Un Club pieno 
di scambi di idee fra 
i soci, di consigli, à 
di programmi, I 



Il Basic Microsoft per 
Macintosh è 
facile e può dare 
grandi soddisfazioni. 
Imparare a usarne 
tutte le potenzialità 
diventa ancor 
più facile iscrivendoti 

subito al 
Mac Basic Club. 
Infatti, se il Basic 
Microsoft 2.1 
ancora non 
l'hai, iscriverti 
al Mac Basic Club 
non costa 






Tavola 2. Istruzioni generali per II disco. 

Istruzione Applesoft 

Equivalente MS Basic 

Funzione 

INIT 


Inizializza (formatta) un disco 

CATALOG 

FILES 

Visualizza il catalogo del disco 

SAVE nomefile 

SAVE nomefile 

Salva il programma Basic corrente 

LOAD nomefile 

LOAD nomefile 

Canea il programma dal dischetto 

RUN [nomefile] 

RUN (nomefile] 

Esegue il programma specificato in me mona 

RENAME nomefile, nomefile 

NAME "nomefile"AS “nomefile" 

Cambia il nome del file 

DELETE nomefile 

KILL "nomefile" 

Toglie il file dal disco 

LOOK nomefile 


Protegge il file da scrittura o eliminazione 

UNLOCK nomefile 


Toglie la protezione al file 


normale larghezza di 65 colonne non 
coincide né con le 40 colonne stan¬ 
dard dell’Apple II né con l’opzione di 
80 colonne che sta guadagnando in 
popolarità. 

E tuttavia le 65 colonne non vo¬ 
gliono dire che su una linea vengo¬ 
no stampati solo 65 caratteri; la spa¬ 
ziatura proporzionale permette di sti¬ 
parne di più su una linea quando ven¬ 
gono usati caratteri stretti. 

Questo implica qualche grattacapo 
quando i programmi in Applesoft u- 
sano gli spazi per arrivare a certe co¬ 
lonne di una tabella o di un grafico. 
Se la spaziatura proporzionale crea 
troppi problemi ricorrete al comando 
CALL TEXTFONT (4) per installa¬ 
re il font Monaco nel vostro pro¬ 
gramma in MS Basic. Si tratta di un 
font monospazio nel quale i caratteri 
sono della stessa larghezza. Potete 
provare anche il comando PRINT U- 
SING, che non è disponibile nell’Ap¬ 
plesoft. 

Anche le zone di stampa di default 
sono diverse. L’Applesoft usa zone 
di stampa di 16 colonne, mentre 
l’MS Basic usa zone di 15 colonne. 
Questo ha scarso effetto sulla vasta 


maggioranza dei programmi, ma i 
programmatori in Applesoft usano 
spesso caratteristiche inconsuete del- 
l’Applesoft quando scrivono il codi¬ 
ce. Per esempio supponiamo che il 
programmatore sappia che un mes¬ 
saggio è di una specifica lunghezza, 
e che quindi la stampa seguente ha i- 
nizio in una specifica zona di stam¬ 
pa e ha posto per tre numeri interi. 
Nel Macintosh questo può avere co¬ 
me conseguenza la comparsa dei nu¬ 
meri in differenti punti dello scher¬ 
mo. E’ vero che si tratta solo di una 
considerazione estetica, ma potreste 
aver bisogno di fare qualche cambia¬ 
mento. Inoltre l’altezza della scher¬ 
mata del Macintosh, di 17 righe, è 
inferiore a quella dell'Apple II, che è 
di 24 righe. 

Come ovviare a queste differenze 
dipenderà dal tipo di programma che 
state convertendo. In linea generale 
cominciate un programma in MS Ba¬ 
sic con WIDTH 40,16. Così si im¬ 
posta la larghezza della schermata su 
40 colonne, con zone di stampa di 
16 colonne, rendendo la finestra più 
compatibile con la schermata del¬ 
l’Apple IL 


Nell’Apple II una scheda a 80 co¬ 
lonne è solitamente attivata da 
PR#3. Per ottenere un display di 80 
colonne nel Mac cambiate le dimen¬ 
sioni del font, la larghezza, e le di¬ 
mensioni della finestra come segue: 
CALL TEXTFONT(4) 

CALL TEXTSIZE(9) 

WTNDOW 1„(5,40)-(505,310) 
WIDTH 80 

Questo avrà come conseguenza u- 
na stampa in caratteri piuttosto pic¬ 
coli ma del tutto leggibili, ed elimi¬ 
nerà qualche problema di traduzione 
nel lavoro a 80 colonne. 

Il comando PR#0 fa tornare l’Ap¬ 
ple al modo 40 colonne. Ciò si tra¬ 
duce nel comando dell’MS Basic WI- 
DTH 40. Ogni volta che incontrate 
un 23 o un 24 in un programma in 
Applesoft attendetevi un test per 
un'intera videata. Dovrete cambiarlo 
in 16 o rispettivamente 17 per gesti¬ 
re la schermata più corta del Mac, a 
meno che non cambiate le dimensio¬ 
ni del font. Le istruzioni PRINT 
che cominciano con <CTRL>D 
(CHR$(4)) hanno a che fare con l’in- 
put/output dei file e saranno esami¬ 
nate più avanti. 

Come l’MS Basic, l’Applesoft pos¬ 
siede comandi che semplificano il 
compito di realizzare display lindi e 
ordinati. Alcuni hanno nomi che so¬ 
no familiari, ma per la maggior par¬ 
te non è così. TEXT è un comando 
Applesoft per la visualizzazione del 
testo sullo schermo, ed è normal¬ 
mente usato per lasciare il modo gra¬ 
fico. Nell’MS Basic questo non è ne¬ 
cessario. 

HOME è identico al comando 
CLS dell’MS Basic quando l'Apple 
II è nel modo testo. Nella maggior 
parte dei casi le funzioni SPC e 
TAB lavorano allo stesso modo nei 
due linguaggi quando sono utilizzate 
con PRINT. I risultati sono però dif¬ 
ferenti quando si è alla colonna 50 e 
si usa PRINT TAB(10);’’CIAO”. 
L’MS Basic emetterà un ritorno car¬ 
rello e stamperà "CIAO”, mentre 
l’Applesoft ignorerà il TAB(10) e 
stamperà nella posizione corrente. 

I comandi HTAB e VTAB dell’Ap- 
plesoft fanno rispettivamente tabula¬ 
zioni orizzontali e verticali. Il co¬ 
mando HTAB dell’Applesoft differi¬ 
sce dal TAB dell’MS Basic nel fatto 
che non va mai alla linea seguente, 
ma si limita a mettere il cursore alla 
colonna data. Il VTAB dell’Apple- 
soft mette il cursore sulla linea data 
senza influire sulla colonna. Gli 
HTAB possono avere un valore che 


Tavola 3. Comuni Indirizzi POKE e PEEK dell’Apple II. 

Codice PEEK/POKE 

Equivalente MS Basic 

Funzione 

PEEK(222) 

ERR 

Codice d'errore 

PEEK(219)*256+PEEK(218) 

ERL 

Riceve numero di linea dell'errore 

POKE216.0 

ON ERROR GOTO 0 

Cancella routine d'errore 

POKE 32, L 


Predispone bordo sinistro dello schermo 

POKE 33, W 

- 

Predispone lunghezza della linea 

POKE 34,T 

- 

Predispone sommità dello schermo 

POKE 35. B 

- 

Predispone base dello schermo 

POKE 36, X 

LOCATE ,X 

Predispone colonna per il cursore 

PEEK(-16287) 

- 

Controlla pulsante 0 

PEEK(-16286) 

- 

Controlla pulsante 1 

PEEK(-16285) 

- 

Controlla pulsante 2 

PEEK(-16384)>127 

INKEY$< >““ 

Controlla tastiera per carattere 

POKE -16368,0 

Non necessario 

Azzera porta tastiera 

POKE -16304,0 

- 

Attiva il modo grafico senza pulire 

POKE -16303,0 


Ritorna al testo dalla grafica 

POKE -16302,0 

- 

Attiva il modo grafico a tutto schermo 

POKE -16301,0 

- 

Attiva il modo misto testo e grafica 

POKE -16300,0 


Da pagina 2 a pagina 1 senza pulire 

POKE-16299,0 


Da pagina 1 a pagina 2 senza pulire 

POKE -16298,0 


Da Hi-Res a Lo-Res senza pulire 

POKE -16297,0 


Da Lo-Res a Hi-Res senza pulire 

PEEK(36) 

POS(0)-1 

Riceve posizione orizzontale cursore 

PEEK(37) 

CSRLIN-1 

Riceve posizione verticale cursore 

POKE 37,CV 

LOCATE ,CV+1 

Imposta posizione verticale cursore 

PEEK(-16336) 


Clic altoparlante 

PEEK(-16352) 


Clic uscita cassetta 

PEEK(216)>127 


Controlla se routine d'errore 

POKEs 10-12 


Predispone indirizzo per USR 


58 






Sette minuti 
e la chiave 


f del Mac Basic 
Club è tua 


Sette minuti possono aprirti la porta 
di un nuovo mondo: quello dei 
programmi scritti da te come 
servono a te, sulla misura 
delle tue esigenze. Sette minuti 
bastano per decidere di entrare 
ne Club di chi sa ottenere dal 
suo Macintosh esattamente 
quello che vuole. Il Mac Basic Club 
ti offre proprio questo: tutorial in 
italiano, routines, trucchi e segreti, 
suggerimenti, idee. In pratica il Club 
offre tutto il supporto che ti è 
necessario per imparare senza 
fatica il Basic Microsoft. E te lo 
offre gratis se non possiedi ancora il 
Microsoft Basic 2.1. Iscrivendoti al 
Mac Basic Club riceverai infatti, 

subito e direttamente 
al tuo indirizzo, 
il Microsoft 
Basic 2.1 in 
confezione 
originale 
completa di 
manuale, 
più il primo 
numero del 
bimestrale su dischetto del 
Mac Basic Club. Gli altri cinque dischetti 
ti verranno spediti via via che verranno 
pubblicati. Ma tu pagherai solo il prezzo 
del Microsoft Basic 2.1, e cioè 327.000 
lire (più Iva 9%). Ma anche se possiedi già 
il Basic puoi iscriverti al Mac Basic Club 
in questo caso riceverai solo i sei numeri 
del bimestrale su dischetto del Club, e 
pagherai 160.000 lire (più Iva 9%). 

Mac Basic Club è un'iniziativa 


D W* 

basic 

Club 



Microsoft Basic permette di 
programmare in un ambiente 
altamente interattivo, 
sfruttando tutte le potenzialità 

■ di Macintosh: la grafica, 

il suono, le finestre, i menù. 
Comprende strutture 
di controllo avanzate come le 
istruzioni PRINT USING, 
IF/THEN/ELSE, WHILE/WEND, ecc. 
In più, rispetto al Microsoft Basic 2.0, 
il Microsoft Basic 2.1 è in pratica 
due volte più veloce 
Ed è sicuramente il 
linguaggio che più 
rapidamente e più 
facilmente ti farà 
ottenere risultati 
davvero 
professionali. 
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Tavola 4. Comuni chiamate (CALL) deH‘Applell alle subroutine. 

Indirizzo CALL 

Equivalente MS Basic 

Funzione 

-3288 

CLS 

Ripulisce lo stack per GOTO dopo un errore 

-936 

Come HOME 

-958 


Pulisce lo schermo dal cursore alla base 

-868 


Pulisce il resto della linea 

-922 


Sposta il cursore in giù di una linea 

-912 


Fa scorrere il testo di una linea 

54915 


Svuota lo stack interno 

-211 

PRINT"ERR ,, :BEEP 

Stampa ERR ed emette bip 

-198 

BEEP 

Emette bip 


va da 1 a 40 mentre i VTAB posso¬ 
no essere compresi fra 1 e 24. I pro¬ 
grammatori in MS Basic usano l'i- 
struzione LOCATE per mettere in 
posizione il cursore, e quindi HTAB 
5 diventa LOCATE,5; VTAB 15 di¬ 
venta LOCATE 15; e HTAB 
10: VTAB X diventa LOCATE 
X,10. Gli APPLE II a 80 colonne u- 
sano POKE 36,X per mettere il cur¬ 
sore in una colonna compresa fra 41 
e 80, quindi POKE 36,50 equivale 
al LOCATELO del Mac. 

In entrambi i sistemi si adopera 
POS per ottenere la posizione oriz¬ 
zontale del cursore. Il comando resti¬ 
tuisce però valori lievemente diversi 
nei due sistemi. L'Applesoft dà un 
valore compreso fra 0 e 39 (79 per 
chi impiega le 80 colonne), mentre 
l'MS Basic dà valori che cominciano 
da uno. Di conseguenza l’istruzione 
Applesoft: 

IF POS(l)>19 THEN PRINT 
ha in MS Basic l'equivalente: 

IF POS(l)-l>19 THEN PRINT 

L'Applesoft usa INVERSE per vi¬ 
sualizzare testo nero su sfondo bian¬ 
co, e FLASH per far lampeggiare i 
caratteri di testo. L’MS Basic non è 
in grado di svolgere queste funzioni, 
ma potete evidenziare i vostri di¬ 
splay cambiando font o stile di font. 
Per esempio usate caratteri corsivi 
quando occorre INVERSE, con l'i¬ 
struzione CALL TEXTFACE(2). In 
Applesoft NORMAL ripristina il 
modo normale di visualizzazione in 
caratteri bianchi su fondo scuro sen¬ 
za lampeggiamento. Per tornare da u- 
no stile speciale di caratteri ai caratte¬ 
ri ordinari in MS Basic usate CALL 
TEXTFACE(O). 

SPEED è l'istruzione Applesoft 
che imposta la velocità alla quale i 
caratteri sono visualizzati sullo 
schermo. Zero è la velocità più bas¬ 
sa e 255 la più elevata. Dato che 
l'MS Basic non ha un comando ana¬ 
logo togliete questa istruzione e 
guardate che cosa succede. Poi potre¬ 
te decidere se volete rallentare le 
cose. 


Gestione file 
sequenziali e random 

A differenza dei comandi separati 
OPEN e CLOSE dell'MS Basic, tut¬ 
ti i comandi dell'Applesoft per il di¬ 
sco si trovano in speciali istruzioni 
PRINT. Quando vengono dati co¬ 
mandi per il disco il primo carattere 
dell’istruzione PRINT dev'essere un 
<CTRL>D, che è uguale a CHR$ 
(4). Per esempio: 

PRINT CHR$(4); "OPEN TEST" 
non significa stampare un <CTRL> 
D seguito dal messaggio "OPEN TE¬ 
ST", ma aprire un file di disco deno¬ 
minato "TEST". Potrà capitarvi di 
vedere qualche volta CHR$(4) im¬ 
mediatamente prima del comando, 
ma è più comune che questo sia di¬ 
chiarato come: 

D$=CHR$(4): PRINT D$;"OPEN 
TEST" 

La variabile D$ è usata tanto co¬ 
munemente per questo scopo che è 
praticamente diventata uno standard, 
perciò se vedete un PRINT D$;"i- 
struzione" dovete automaticamente 
attendervi un comando per il di¬ 
schetto. 

In generale i comandi per il disco 
hanno la seguente forma: 

PRINT D$; "comando nomefile, o- 
pzioni" 

Il comando è l'effettiva funzione 
da svolgere (tavola 2). Il nomefile 
è il nome del file sul disco. Le con¬ 
venzioni di nome del file variano a 
seconda del sistema operativo. Due 
sono i sistemi operativi per il di¬ 
schetto usati correntemente dai pro¬ 
grammatori in Applesoft. Il DOS 
3.3 permette nomi di file lunghi fi¬ 
no a 30 caratteri. Il primo carattere 
dev'essere una lettera, e può essere u- 
sato qualsiasi altro carattere, compre¬ 
si gli spazi e i punti (fa eccezione la 
virgola). Il ProDOS ha molte caratte¬ 
ristiche nuove che migliorano la pre¬ 
stazione dei sistemi Apple II con me¬ 
morie più vaste e hard disk. I nomi 
di file del ProDOS possono essere 
lunghi fino a 15 caratteri, ma non 


sono ammesse spaziature nel nome. 
Così TEST A è nome di file valido 
in un programma Applesoft scritto 
in DOS 3.3, ma non è valido per il 
ProDOS. TEST. A funzionerebbe 
per entrambi i sistemi. 

Di solito per convertire i nomi dei 
file del DOS dell'Apple II in modo 
che funzionino in MS Basic non oc¬ 
corre alcun lavoro. I nomi dei file 
dell’MS Basic possono arrivare a 
255 caratteri, con lettere maiuscole e 
minuscole, numeri e segni d'inter¬ 
punzione (esclusi i due punti). 

I nomi dei file del ProDOS posso¬ 
no anche essere preceduti da un no¬ 
me di directory, come /APPLICAN- 
DO/TEST.A. Qui APPLICANDO è 
il nome di una directory del dischet¬ 
to. Potete immaginare un directory 
come un dischetto alfinterno di un 
dischetto. Quando vi imbattete in 
qualcosa del genere togliete il nome 
della directory. Cambiate /APPLI- 
CANDO/TEST.A in un semplice 
TEST.A. Se avete bisogno di salva¬ 
re file su un dischetto diverso da 
quello presentemente attivo in MS 
Basic anteponete come prefix al no¬ 
me del file il nome del dischetto e 
un segno di due punti. Per esempio 
per salvare il file TEST.A su un di¬ 
schetto chiamato APPLICANDO ba¬ 
sta specificare APPLICANDO:TE- 
ST.A. 

Le opzioni menzionate sopra co¬ 
minciano in genere con un'unica let¬ 
tera seguita da un numero. Quando 
il numero comincia con un segno di 
dollaro ($) è dato in notazione esade- 
cimale. 

Le opzioni disponibili comprendo¬ 
no le lettere A, L, B, R, S, D e V 
per specificare, rispettivamente, indi¬ 
rizzo e lunghezza del file binario, of¬ 
fset di byte del file sequenziale, nu¬ 
mero di record del file casuale, slot 
del disco, numero del drive e numero 
di volume del disco. 

Prima di parlare dei file di testo ad 
accesso sequenziale e casuale sarà be¬ 
ne che diate un’occhiata alle istruzio¬ 
ni generali per il disco che si trova¬ 
no nella tavola 2, al loro significa¬ 
to e alle corrispondenti istruzioni in 
MS Basic. In Applesoft ognuna di 
quelle istruzioni si trova con un'i¬ 
struzione PRINT, come PRINT 
CHR$(4),"DELETE TEST". Come 
potete vedere, un'eliminazione in 
MS Basic viene eseguita con il co¬ 
mando KILL, e quindi tradurremmo 
la linea facendole dire KILL 
"TEST". 

Se vedete nel vostro programma 
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Tavola 5. Conversione delle parole chiave 


Applesoft 

MS Basic 

Commento 

Applesoft 

MS Basic 

Commento 

& 


Vedi articolo 

NORMAL 


Vedi articolo 

ABS 

ABS 


NOT 

NOT 


AND 

AND 


NOTRACE 

TROFF 


ASC 

ASC 


ON 

ON 


AT 

- 

Comando grafico 

ONERR 

ON ERROR 


ATN 

ATN 


OR 

OR 


CALL 

CALL 

Vedi articolo 

PDL 


Vedi articolo 

CHR$ 

CHR$ 


PEEK 

PEEK 

Vedi artìcolo 

CLEAR 

CLEAR 


PLOT 


Comando grafico 

COLOR= 


Comando grafico 

POKE 

POKE 

Vedi artìcolo 

COS 

COS 


POP 

RETURN x 

Vedi artìcolo 

DATA 

DATA 


POS(1) 

POS(1>-1 

Vedi artìcolo 

DEF 

DEF 


PRINT 

PRINT 

Vedi artìcolo 

DEL 100,200 

DE LETE 100-200 


PR# 


Vedi artìcolo 

DIM 

DIM 


READ 

READ 


DRAW 


Comando grafico 

RECALL 

- 

Vedi artìcolo 

END 

END 


REM 

REM 


EXP 

EXP 


RESTORE 

RESTORE 


FLASH 


Vedi articolo 

RÉSUMÉ 

RÉSUMÉ 


FN CUBE 

FNCUBE 


RETURN 

RETURN 


FOR 

FOR 

Vedi articolo 

RIGHTS 

RIGHTS 


FRE 

FRE 

Vedi articolo 

RND 

RND 

Vedi artìcolo 

GET A$ 

A$=INPUT$(1) 


ROT- 

- 

Comando grafico 

GOSUB 

GOSUB 


RUN 

RUN 


GOTO 

GOTO 


SAVE 

SAVE 


GR 


Comando grafico 

SCALE. 


Comando grafico 

HCOLOR* 


Comando grafico 

SCRN( 


Comando grafico 

HGR 


Comando grafico 

SGN 

SGN 


HGR2 


Comando grafico 

SHLOAD 

- 

Vedi articolo 

HIMEM: 


Vedi articolo 

SIN 

SIN 


HLIN 


Comando grafico 

SPC( 

SPC( 


HOME 

CLS 


SPEED- 

- 

Vedi artìcolo 

HPLOT 


Comando grafico 

SQR 

SOR 


HTABX 

LOCATE ,X 


STEP 

STEP 


IF 

IF 


STOP 

STOP 


IN# 


Vedi articolo 

STORE 

. 

Vedi articolo 

INPUT 

INPUT 


STR$ 

STRS 


INT 

INT 


TAB( 

TAB( 

Vedi artìcolo 

INVERSE 


Vedi articolo 

TAN 

TAN 


LEFT$ 

LEFTS 


TEXT 


Comando grafico 

LEN 

LEN 


THEN 

THEN 


LET 

LET 


TO 

- 

Comando grafico 

LIST 

LIST 


TRACE 

TRON 


LOAD 

LOAD 


USR 


Vedi artìcolo 

LOG 

LOG 


VAL 

VAL 


LOMEM: 



VLIN 


Comando grafico 

MID$ 

MID$ 


VTABX 

LOCATE X 

Vedi artìcolo 

NEW 

NEW 


WAIT 


Vedi articolo 

NEXT 

NEXT 


XDRAW 


Comando grafico 


Applesoft istruzioni BLOAD, BSA- 
VE e BRUN dovrete probabilmente 
convertire un po’ di linguaggio as¬ 
semblatore del 6502 in linguaggio 
assemblatore del 68000. Questo esu¬ 
la però dall'ambito di questo artico¬ 
lo, e se non siete in grado di farlo di 
persona dovrete trovare qualcuno 
che abbia familiarità con i due lin¬ 
guaggi. 

L'Applesoft può usare sia file ad 
accesso sequenziale sia file ad acces¬ 
so casuale per immagazzinare e recu¬ 
perare i dati dei programmi. Come 
per tutti i comandi concernenti il di¬ 
sco, le istruzioni per aprire, leggere, 
scrivere e chiudere si trovano all'in- 
terno delfistruzione PRINT con il 
<CTRL>D, eccezion fatta per IN¬ 
PUT, GET e PRINT. La subroutine 
delfesempio visibile in figura 2 
scrive diverse voci in un file sequen¬ 
ziale e poi le rilegge in variabili. 
Confrontando le due versioni date 
nell'esempio potete vedere che la 
conversione è abbastanza semplice. I 
comandi separati dell'Applesoft O- 
PEN-READ e OPEN-WRITE nel- 
l'MS Basic sono combinati nel co¬ 
mando OPEN, specificando l'opzio¬ 
ne dopo di esso. 

L'Applesoft non è in grado di iden¬ 
tificare una condizione di fine del fi¬ 
le se non tramite il consueto intrap- 
polamento ONERR GOTO del quale 
si è parlato prima. Se la fine del file 
viene raggiunta quando l'Applesoft 
sta cercando di leggere un file, la 
routine d'errore viene eseguita con il 
codice d'errore uguale a cinque. Toc¬ 
ca poi alla routine di gestione dell'er¬ 
rore risolvere questa situazione. Da¬ 
to che l'MS Basic ha la funzione 
EOF usatela quando fate la conver¬ 
sione di una simile routine Appleso¬ 
ft. Cogliere gli errori di fine del file 
con la funzione EOF è più elegante. 

Per quanto i file di testo sequenzia¬ 
li siano abbastanza semplici da usa¬ 
re, molti programmi impiegano file 
di testo ad accesso casuale. L'Apple 
DOS dispone di file casuali, ma la 
loro implementazione non è certo so¬ 
fisticata come quella dell'MS Basic, 
e può darsi che scopriate che un po' 
di lavoro in più nel codice del file ca¬ 
suale sarà premiato da una traduzio¬ 
ne più limpida. 

In termini di istruzioni i file casua¬ 
li del DOS dell'Apple non differisco¬ 
no molto dai file sequenziali. Vi si 
accede mediante comandi che si tro¬ 
vano all'interno di istruzioni PRINT 
<CTRL>D (con l'eccezione di IN¬ 
PUT e PRINT). 


L'Apple DOS permette che i nu¬ 
meri di record partano da zero, men¬ 
tre il primo record dell’MS Basic è 
uno. Perciò dovete aggiungere uno a 
ogni numero di record per far funzio¬ 
nare in MS Basic il codice d'accesso 
casuale. L'esempio di figura 3 mo¬ 
stra il codice dell'Applesoft e quello 
dell' MS Basic. 

Per accedere alle locazioni di me¬ 
moria si usano comandi PEEK, PO- 
KE e CALL. L'MS Basic ha tutti 
questi comandi, ma dato che l'inter¬ 
no del Mac e quello dell'Apple II 
non hanno niente in comune ogni in¬ 
dirizzo dev'essere cambiato. 

Le tavole 3 e 4 mostrano le lo¬ 
cazioni di memoria dell'Apple II cui 
si accede comunemente e le sostitu¬ 
zioni consigliate per il Macintosh. 
Se un programma in Applesoft scri¬ 
ve in memoria con POKE un pro¬ 
gramma in linguaggio macchina, do¬ 
vete apportargli estese modifiche per 
farlo girare in MS Basic, dato che o- 
gnuno dei due ha un suo linguaggio 


macchina. I cambiamenti in questio¬ 
ne esulano dagli scopi di questo arti¬ 
colo. 

HIMEM: e LOMEM: sono usate 
dall'Applesoft per riservare pezzi di 
memoria a cose quali i programmi 
in linguaggio macchina, il DOS e 
gli schermi della grafica in alta riso¬ 
luzione. Dato che ciascuna di queste 
cose è gestita in modo diverso dal- 
l'MS Basic potete ignorare le due i- 
struzioni. 

In entrambi i linguaggi FRE() re¬ 
stituisce al Basic la memoria dispo¬ 
nibile. Dato che l'Apple e il Mac 
hanno dimensioni ed esigenze diver¬ 
se di memoria i numeri resi dall'Ap- 
plesoft e dall’MS Basic saranno diffe¬ 
renti. I comandi Applesoft TRACE 
e NOTRACE sono mezzi di debug¬ 
ging equivalenti rispettivamente a 
TRON e TROFF dell'Applesoft. 

Per aiutarvi nelle conversioni, la 
tavola 5 compendia le parole chia¬ 
ve dell'Applesoft e quelle equivalenti 
dell'MS Basic. 
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Applicando ha un nuovo 




Abbonamento tradizionale con dono? 
Abbonamento biennale con supersconto? 

Oppure la nuovissima formula 
rivista con dischetto, per non avere più 
problemi di digitazione? 
Per tutti, comunque, tanti 
programmi, notizie, consigli e... 

L'abbonamento annuale con disco 
programmi per Macintosh 
prevede 10 numeri di Applicando, 
corredato di un dischetto 
pollici e 
su cui sono 

registrati tutti i programmi per 
Macintosh pubblicati sulla rivista. 

Inoltre sono compresi nel prezzo 
dell'abbonamento l'ultima 
edizione delle Pagine 
del software e 
dell'hardware 
per Apple e un 
portadischetti. 













Cap_Città_I_Provincia 

Data_Firma__ 


presente... 


L'abbonamento annuale con disco 
programmi per Apple II 
prevede 10 numeri di Applicando, 
ognuno corredato con un dischetto 
da 5 pollici e 1/4 su cui sono 
registrati tutti i programmi per Apple II 
pubblicati sulla rivista. 

Inoltre sono compresi nel prezzo 
dell'abbonamento l'ultima edizione 
delle Pagine del software e dell'hardware 

per Apple e un 
portadischettì. 


disk? 


Compilare e spedire il tagliando sottostante 
Editronica srl, Corso Monforte 39,20122 Milani 


Sì! Desidero sottoscrivere il seguente abbonamento: 

□ Abbonamento annuale con dono, che dà diritto a ricevere 10 numeri di 
Applicando e in omaggio l'ultima edizione delle Pagine del software e dell'hardware 
per Apple, il catalogo ragionato di tutti i programmi e dei maggiori prodotti hardware 
esistenti in commercio per Apple II e Macintosh, al prezzo di lire 60.000. 

□ Abbonamento annuale senza dono, che dà diritto a ricevere 10 numeri di 
Applicando, al prezzo di lire 50.000, con uno sconto di 10.000 lire sul prezzo di 
copertina. 

□ Abbonamento biennale con dono, che dà diritto a ricevere 20 numeri di 
Applicando e in omaggio l'ultima edizione più quella successiva delle Pagine del 
software e dell'hardware per Apple, il catalogo ragionato di tutti i programmi e dei 
maggiori prodotti hardware esistenti in commercio per Apple II e Macintosh, al prezzo 
di 100.000 lire. Inoltre lei risparmia ben 20.000 lire sul prezzo di copertina. 

□ Abbonamento biennale senza dono, che dà diritto a ricevere 20 numeri di 
Applicando, al prezzo di lire 80.000, con uno sconto di 40.000 lire sul prezzo di 
copertina. 

□ Abbonamento annuale con disco programmi per Apple 11, che dà 

diritto a ricevere 10 numeri di Applicando, 10 dischetti da 5 pollici e 1/4 e le Pagine del 
software e dell'hardware per Apple, al prezzo di 260.000 lire. Infatti ogni numero le 
verrà recapitato direttamente a domicilio insieme con il dischetto con già 
registrati tutti i programmi per Apple II pubblicati quel mese. Inoltre, in 
dono, le verrà subito recapitato un elegante portadischettì. 

□ Abbonamento annuale con disco programmi per Macintosh, che dà 

diritto a ricevere 10 numeri di Applicando, 10 dischetti da 3 pollici e 1/2 e le Pagine del 
software e dell'hardware per Apple, al prezzo di 300.000 lire. Il dischetto cne ogni 
mese arriverà a domicilio conterrà tutti i programmi per Macintosh . Anche 
in questo caso le verrà inviato subito, in dono, un elegante portadischettì. 

□ Inviatemi i seguenti arretrati a 7.000 lire ciascuno (per l'elenco degli arretrati 

iti): NN_ 


vedere alla pagina seguente. I nn. 1 e 2 sono esauriti): 


□ Allego assegno non trasferibile si L_ intestato a Editronica srl, 

Corso Monforte 39, 20122 Milano. 


□ Allego ricevuta di versamento di L_ sul C/C postale n. 19740208 

intestato a Editronica srl, Corso Monforte 39, 20122 Milano. 


□ Pago fin d'ora L. 
N. 


_con la mia carta di credito BankAmericard 


_autorizzando la Banca d'America e 

d'Italia ad addebitare l'importo sul mio conto BankAmericard. ( 


.scadenza- 


Cognome- 
Indirizzo _ 


Nome 





















I Compila e spedisci subito il tagliando 
della pagina precedente a: 


^ ^ ^ _ _ _ __ ^ ^ ^ 1 Edìtronica - Ufficio arretrati di Applicando 

...mQ anche un passato* mi^^ 


3 - settembre/ottobre 1983 - Lire 
7.000 • Un programma di Data Base ac¬ 
cessibile a tutti • Ecco Logo in italiano • U- 
na scheda e una telecamera e il tuo Apple 
vede • Etichette spiritose o bizzarre • Pic¬ 
coli editori, club e associazioni possono rag¬ 
giungere soci e abbonati facilmente • Equo 
canone con VisiCalc • Una routine e la E- 
pson M 80 stampa i grafici • Seconda pun¬ 
tata del corso di Basic • Con un uso accor¬ 
to del WPL ecco pronto un documento di 
più pagine, personalizzato, con decine di o- 
pzioni diverse • Dadi e punti (gioco). 

4 - novembre/dicembre 1983 - Lire 
7.000 ■ Tre schede, una tastiera e un po' 
di software: il computer diventa un’intera 
orchestra • Pianoforte, organo e violino in 
Pascal • Per imparare a leggere più veloce¬ 
mente (e fare esercizio di inglese) • Elogio 
del VisiDex • Grazie Lisa: cos'è e a chi può 
servire il rivoluzionario personal Apple • 
Rompiauindici • Per chi ha dischetti del Si¬ 
stema Pascal, ecco una rassegna delle 
possibilità offerte e dei comandi a disposi¬ 
zione • Dedalus • Terza puntata del corso 
Basic • Guida ragionata dei software in 
commercio per la gestione condominiale • 
Una numeric keypad fatta solo di so¬ 
ftware. 

5 - gennaio/febbraio 1984 - Lire 
7.000 • La tecnologia del mouse applica¬ 
ta all'Apple II • In memoria i vostri impegni 
di un anno intero • Contabilità semplificata 

• Battaglia di cannoni • Investor, uno dei mi¬ 
gliori programmi che fornisce in tempo rea¬ 
le il quadro esatto di come vanno i propri in¬ 
vestimenti finanziari; ideale per la gestione 
del proprio portafoglio titoli • Quarta punta¬ 
ta del corso di Basic • Il gioco delle freccet¬ 
te • Prima puntata di un facile corso di Pa¬ 
scal • Macintosh: piccolo, maneggevole, 
portatile. 

6 - marzo/aprile 1984 - Lire 7.000 

• Appleworks (Tre per te): un unico softwa¬ 
re per database, word processor e sprea¬ 
dsheet • Anteprima di Apple Ile • Titoli di 
stato, cartelle fondiarie, obbligazioni: l'Ap¬ 
ple per difendere i risparmi • Un mostro tira 
l'altro: riuscirete a mangiarli tutti? • Stres- 
s: un nuovo gioco per vincere lo stress • 
Memoria riga per riga: come localizzare 
parti di un programma velocemente con Ll- 
NEFINDER • Seconda puntata del Pascal 

• L'Applesoft per semplificare fimpacca- 
mento dei record e il recupero delle infor¬ 
mazioni • Grafici a passeggio: il dump della 
pagina grafica da Apple II a una stampan¬ 
te semigrafica. 

7 - maggio/giugno 1984 - Lire 
7.000 • PròDQS: il nuovo sistema opera¬ 
tivo con la possibilità di usare il ProFile e il 
Mouse • Computer e pennello: Apple e i 
suoi capolavori- Topolino aiuta i bambini a 
riconoscere i numeri • impedite ai curiosi di 
ficcare il naso nei vostri programmi • Una 
cassetta di salvataggio per registrare i 
programmi più importanti • Grafica e ani¬ 
mazione: sesta puntata dell’Applesoft • 
Diventa un disk jockey infallibile: l'Apple tie¬ 
ne in ordine l'archivio dei tuoi dischi • Aiuto: 
un programma che vi consente di trovare 
subito gli errori di battitura e di correggerli. 

8 - luglio/aao sto/settembre 1984 - 
Lire 7.000 • Personalizza i messaggi di 
errore dei tuoi programmi • Appliscuola: u- 
na nuova serie di articoli e programmi stu¬ 
diati per la scuola • Le Mans in poltrona • 
Due dita sono sufficienti per scrivere, ma 
con dieci... • Un computer per segretario • 
Trasformate il vostro Apple in un melodio¬ 
so organo • La struttura dei dati: quarta 
puntata del corso di Pascal • La scelta del¬ 
la stampante è importante: se l'accoppia¬ 
ta con il computer è vincente ... • Scritte 
lampeggianti e caratteri che scorrono con 
l'Applesoft • Macintosh: 37 nuovi pro¬ 
grammi: tutte le novità del NCC di Las 
Vegas. 

9 - ottobre 1984 - Lire 7.000 • Cin¬ 
que modem per collegarsi con reti e ban¬ 
che dati • Ile contro Ile: fino a che punto 
sono compatibili? • Fuoco fatuo: un adven- 
ture game che mette alla prova anche i 


più esperti • Rotazione e traslazione delle fi- 

g ure piane e somma delle forze parallele • 
ìerarchia, sequenza e ombra per visualiz¬ 
zare il parentado: quinto appuntamento 
con il Pascal • Come ottenere grandi risul¬ 
tati nella grafica ad alta risoluzione utiliz¬ 
zando un Apple II e un TV color • Una sem¬ 
plice routine per disporre sempre della data 
memorizzata • Macintosh: Guida al- 
rMs-Basic. 

10 - novembre 1984 - Lire 7.000 • 

Una guida per entrare con l'Apple nelle reti 
nazionale e internazionale • L'Apple //c sti¬ 
la una graduatoria delle autovetture d'epo¬ 
ca • Come gestire tre attività professiona¬ 
li diverse con un Apple • Niente paura se i- 
nawertitamente battete New o Fp! • Dos: 
un programma per ritrovare sempre i dati 
che sembrano scomparsi • L'ottava punta¬ 
ta di Applesoft: come mantenere allineate 
le righe • Differenze tra Integer e Appleso¬ 
ft e language card • Parametri, procedure 
e funzioni nella sesta puntata del Pascal • 
Appliscuola: rette nel piano cartesiano, e- 
quazioni e calcolo del coefficiente di correla¬ 
zione • Macintosh: Computerizzate il li¬ 
bro cassa con il Mac. 

11 - dicembre 1984 - Lire 7.000 • U- 

na banca dati per avere sotto controllo un 
articolo, il suo numero di pagina, la rivista 
su cui è stato pubblicato • Per recuperare 
un file cancellato accidentalmente • Tutti i 
trucchi per personalizzare l'Hello o per pro¬ 
teggere i listati da occhi indiscreti • L'Apple 
sulla scrivania: perché non lasciarvi un 
messaggio personalizzato? • Un tastierino 
numerico pronto a entrare in azione • Nella 
versione 1.7 del tal programma avete intro¬ 
dotto una variante, ma dove? Per saperlo 
subito e senza errori... - Tre animali feroci 
vi inseguono: riuscirete a metterli in trappo¬ 
la? • Ultima puntata del corso di Pascal • 
Per risolvere le espressioni in modo da im- 

e 'j • Macintosh: Novità software e 
are. 

12-13 - gennaio/febbraio 1985 - Li¬ 
re 7.000 • Per imparare a giocare a Bri¬ 
dge con l'Apple o perfezionarsi nella dichia¬ 
razione; il computer tiene il punteggio e fa 
da avversario • MicroCalc, un programma 
per capire VisiCalc e i pacchetti simili • Un 
corso chiaro, semplice ed esauriente per 
imparare a usare AppleWorks e VisiCalc: 
in ogni articolo un modello pronto da usare, 
il primo è un budget professionale • Una po¬ 
tente utility che permette l'editing dei pro¬ 
grammi • Con questa utility potete aggiun¬ 
gere a un programma esistente delle istru¬ 
zioni DATA • Appliscuola: animazione di u- 
na rotazione. 

14 - marzo 1985 - Lire 7.000 • Un 
computer per meccanico, che ricorda tut¬ 
te le operazioni di manutenzione • Per tra¬ 
sformare una parola o un disegno in un po¬ 
ster gigante • Un programma per ricreare 
sull'Apple qualunque percorso di Golf■ Men¬ 
tre imparate AppleWorks e VisiCalc pote¬ 
te costruire un utilissimo modello per compi¬ 
lare la nota spese in tre minuti • Un pro¬ 
gramma per imparare a contare in età pre¬ 
scolastica, un altro per ripassare le tabelli- 
ne, un terzo per migliorare l'ortografia • Sti¬ 
ma dei frutteti con l'estimo • Macintosh: 
Comando per comando, potete disegnare 
con uno dei maggiori e più creativi esperti 
del mondo • Grafici a colonna, a torta, a li¬ 
nee ... ecco Mac Chart • Hit parade del 
mese. 

15 - aprile 1985 - Lire 7.000 • Non 

più fogli e foglietti sparsi ovunque, con le vo¬ 
stre preziose ricette di cucina* Per sceglie¬ 
re se la vostra prossima automobile sarà 
diesel o a benzina • Un repertorio di suoni 
e rumori di ogni genere per colonna sonora 
ai vostri programmi • Giocare a volano con 
l'Apple • Un programma per sfruttare le 
qualità grafiche dell'Apple • Un menu pro¬ 
fessionale per i vostri programmi: eviden¬ 
ziate con una barraluminosa il programma 
da far girare • Continua il corso AppleWor¬ 
ks: il data base • Speciale Appliscuola: un 
diagramma cartesiano per il calcolo del 
massimo comun divisore, e un programma 
di chimica • Macintosh: Fumetti con 


Mac • Magic e File Vision • L'hit parade 
del mese. 

16 - maggio 1985 - Lire 7.000 • Un 
sistema di data base nutrizionale per per¬ 
sonalizzare una dieta bilanciata, a lunga o 
a breve scadenza • Corso AppleWorks: co¬ 
me farsi un'agenda telefonica • Pompieri: 
un gioco d'azione e abilità • Un programma 
capace di trasformare l'Apple II in un fede¬ 
le e preciso timer • Una tavola di disegno 
per emulare i più potenti programmi di 
CAD/CAM ■ Come scrivere un program¬ 
ma compiuto su una linea sola. Ecco i primi 
venti one-liner • Una utility che facilita il la¬ 
voro di correzione di un listato, rendendone 
più comoda la lettura • Macintosh: Jazz 

• Hit parade del mese. 

17 - giugno 1985 - Lire 7.000 ■ Le 

principali nozioni, un dizionario nautico e 
due simulatori di regate per entrare nel 
mondo della vela • Un programma che tra¬ 
sforma l'Apple in una sofisticata calcolatri¬ 
ce RPN • Una piantina per pianificare qua¬ 
lunque itinerario stradale americano tra 
ben 171 città diverse • Un uragano si sca¬ 
tena sulla città: riuscirete a trovare rifu¬ 
gio? • In AppleWorks la gestione di un ne¬ 
ozio • Un programma per eseguire analisi 
i carattere statistico con la possibilità di 
chiedere previsioni ■ Sparate a vista, ma 
attenti a non essere colpiti! • Continua la 
serie degli One-liner, i programmi su una li¬ 
nea sola • Macintosh: Smooth Talker • 
Hit parade del mese. 

18 - luglio/agosto 1985 - Lire 
7.000 • La versione per Apple di Trivia, il 
gioco che ha stregato mezzo mondo • Con¬ 
tinua il corso AppleWorks con le funzioni 
del word processor • Una utility per perso¬ 
nalizzare il bip segnala errori • Un program¬ 
ma per seguire l'andamento dei propribiori- 
tmi mese per mese • Per sapere i consumi 
dell'auto senza affogare in calcoli e fogliet¬ 
ti ■ Come esaminare l'andamento ai un 
grafico di una funzione • Poche linee di pro¬ 
gramma per avere scritte perfettamente 
centrate su video e stampante • ProDOS: 
una utility per imparare a programmare • 
Nuovi one-liner • Macintosh: My Office • 
MacHardware: ThunderScan. 

19 - settembre 1985 - Lire 7.000 

• Oracolo: per non sbagliare quando sono 
in ballo decisioni importanti • Diggere Clau- 
strophobia, due giochi: per marziani soprav¬ 
vissuti il primo, per pacifisti il secondo • Tut- 
ti i segreti per un collegamento in rete per 
5-25 utenti • Tutti i conti dello studio lega¬ 
le: un programma per avvocati scritto da 
avvocati • Per caricare in memoria un pro¬ 
gramma in Applesoft al di sopra di un codi¬ 
ce macchina • Apple Ile più mouse: accop¬ 
piata vincente per i movimenti cassa-ma¬ 
gazzino • Altri cinque one-liner • Inizia una 
serie di articoli sull'uso della grafica ad altis¬ 
sima risoluzione • Macintosh: Microso- 
ftWord è un programma che vale davvero 
la pena di avere • Aggiornatissimo catalo¬ 
go di programmi e accessori. 

20 - ottobre 1985 - Lire 7.000 • Sa¬ 
lute: come ricordare tutte le malattie e re¬ 
gistrare le spese mediche • Come far parla¬ 
re l'Apple Ile • Oroscopo personalizzato 
con grafici della carta del cielo natale • 
Stabilizzatori di corrente per non perdere o- 
re di prezioso lavoro ■ Dieci one-liner • Ba¬ 
sic Writer consente il collegamento diretto 
tra l'ambiente di elaborazione testo e l'am¬ 
biente Basic • Come controllare il valore di 
una variabile per individuare gli errori • Ecco 
la seconda puntata sull'uso della grafica 
ad altissima risoluzione • Speciale Appli¬ 
scuola: simulazione di un equilibrio • Macin¬ 
tosh: nutrita hit parade del mese. 

21 - novembre 1985 - Lire 7.000 • 

Con AppliArchitet potete arredare la vo¬ 
stra casa con precisione direttamente sul 
video • Grand Prix: una corsa d’auto stile 
arcade in Applesoft • Un modo per accede¬ 
re direttamente alla routine di stampa by 
passando tutto il programma • Controllo di¬ 
retto del cursore • Dieci one-liner **Per Ap¬ 
ple Il un nuovo, potente foglio elettronico in¬ 
tegrato con grafici e data management • 


Prima puntata di un corso di programma¬ 
zione avanzata in Basic - Terzo articolo 
sulla doppia Hi-Res: le figure a blocchi • 
Macintosh: hard disk a confronto • Con¬ 
tabilità generale o forfettaria: 3 pacchetti 
a confronto • Hit parade del mese. 

22 - dicembre 1985/gennaio 1986 
- Lire 7.000 • Una rassegna completa 
dei tipi di stampante, con Te caratteristi¬ 
che tecniche e le prestazioni, e dei relativi 
accessori e una tabella comparativa di 
trenta macchine provate direttamente • 
Memodesk: non la solita agenda elettroni¬ 
ca ma un calendario intelligente da scriva¬ 
nia • BlackJack • Due programmi per gli 
studi dentistici • Continua il corso di pro¬ 
grammazione avanzata in Basic • Effetti 
speciali: Spinnerconsente lo scorrimento o- 
rizzontale di una stringa • Dieci one-liner • 
Calendario perpetuo dal 1753 in poi per Ap¬ 
ple e Mac • Quarta puntata di grafica: ani¬ 
mazione • Appliscuola: il numero di Avoga- 
dro • Macintosh: stampare un catalogo 
professionale di alta qualità a costi conte¬ 
nuti • Hit parade con tantissimi nuovi pro¬ 
grammi. 

23 - febbraio 1986 - Lire 7.000 • 

Speciale editoria: Macintosh, Apple II, La¬ 
serWriter e tutto il software necessario per 
creare un centro stampa autonomo • Co¬ 
me programmare il mouse deir Apple II • 
Guerre stellari • Harmony • Come far scor¬ 
rere 18 immagini sul video • Grafica: scorri¬ 
mento orizzontale di una stringa sul video • 
Corso avanzato di Basic (3) • Sette one-li¬ 
ner • Scuola: resoconto su Pisa • Funzioni 
e grafici tridimensionali • La tavola degli e- 
lementi chimici • Macintosh: la compatibi¬ 
lità Mac-IBM • Tutto sul CFS • L'hit-para- 
de del mese. 

24 ■ marzo 1986 - Lire 7.000 • Spe¬ 
ciale architetti e ingegneri: tanto software 
per risolvere al computer i problemi di com¬ 
puto e disegno • Executive Cardfile: un ar¬ 
chivio intelligente, organizzato in più sche¬ 
dari • Screen dump a 80 colonne in ogni mo¬ 
mento della programmazione • Apple Mae¬ 
stro insegna a comporre musica anche a- 
gli stonati, e senza fatica • A che ora na¬ 
scono i vostri file? Senza acquistare sche¬ 
de software, chiedetelo al programma Ora 
e data • Archiviare con il mouse, sull*Apple 
II: con Ped-one ■ Grafica: lo scorrimento 
verticale • Un'agenda elettronica che com¬ 
pone anche il numero • Appliscuola: disegni 
prospettici con rimozione delle parti nasco¬ 
ste e un trivia, per tutte le materie, da im¬ 
postarsi a piacere • Macintosh: guida al¬ 
l'acquisto del database giusto • Macnews 

• Tutti i linguaggi per la programmazione • 
Grafici: un programma che sa crearli tutti 

25 • aprile 1986 - Lire 7.000 • Spe¬ 
ciale comunicazioni: modem e banche dati 

• Chart Manager: programma professiona¬ 
le per la gestione dei dati e la restituzione 
grafica in curve, barre e torte • Apple Che- 
cker: controlla gli errori di copiatura dei 
listati* Grafica: la logica di programmazio¬ 
ne in doppia alta risoluzione • Buffer di 
stampa: ricaviamolo dall'Apple • Oneliners 

• Appliscuola: variazioni di velocità in funzio¬ 
ne di concentrazione dei reagenti e tempe¬ 
ratura • Macintosh: iBernoulli Box, che 
archivia su cartuccia • Macnews • Una da¬ 
tabase veloce, versatile e personalizzato 
da una potente struttura a schede. 

26 • maggio 1986 - Lire 7.000 Spe¬ 
ciale: gli spreadsheet più potenti per Apple 
Il e Mac • Meandro: un adventure tutto i- 
taliano • Grafica: altri segreti sull'animazio¬ 
ne in doppia alta risoluzione • Appliscuola: 
per risolvere sistemi di equazioni lineari • 
Ants! Il terrore, con le sembianze di 
gigantesche formiche, viene dal giardino • 
Oneliners • Quale sarà il futuro di Apple II? 
Un'intervista con John Sculley e molte novi¬ 
tà da Cupertino • Macintosh: mettere in 
rete Sunol, il disk server piccolo e potente • 
Mac+//: un programma che simula su 
Mac il video Applesoft? Certo, per utilizza¬ 
re ancora tutta la biblioteca programmi 
del II • Windowd Toolbox, perché ogni pro¬ 
grammatore vorrebbe poter modificare le 
finestre del toolbox • Bioritmi • Macnews. 












•Venus 

Venere, la dea della bellezza. A lei è intitolato il pri¬ 
mo software per Macintosh dedicato al mondo della co¬ 
smesi. Realizzato per le profumerie, Venus permette una 
gestione computerizzata, poiché tiene conto di tutte le 
esigenze delle aziende al dettaglio del settore. Diventa co¬ 
sì possibile con un click di mouse verificare la situazio¬ 
ne del magazzino merci modificando lo scarico/carico dei 
prodotti, con la possibilità di stampare inventari totali o 
parziali degli articoli, per avere la situazione del vendu¬ 
to, degli ordini e delle disponibilità. Su ogni dischetto 
da 400Kb è possibile memorizzare fino a un massimo di 
seimila articoli. Una parte del programma è poi dedicata 
all’analisi grafica dei settori merceologici più movimen¬ 
tati, con un resoconto riassuntivo di quanto è successo 
nella giornata o nel periodo esaminato. Per questa funzio¬ 
ne, risulta necessaria una stampante in quanto l'uscita 
del resoconto è possibile solo su supporto cartaceo. An¬ 
cora, è prevista una chiave d’accesso per impedire gli 
sguardi indiscreti dei clienti più curiosi, e la visualizza¬ 
zione sullo schermo di un particolare blocco di quattro 
pagine sul quale annotare le cose da ricordare o incollare 
messaggi e disegni per incuriosire la clientela. Venus gi¬ 
ra su un Macintosh 512Kb con drive esterno e stampa 
su Image Writer a 80 o a 132 colonne. Il prezzo al pub¬ 
blico è di 800 mila lire iva inclusa. E’ prodotto dalla So¬ 
ftware Studio Computers, via Canne 3/A, Cerignola 
(FO). Telefono 0885/23105. 



•MacSpace 

Si chiama Mac Space ed è dedicato ad architetti, inge¬ 
gneri, geometri e a chi necessita di un programma grafi¬ 
co che permetta di disegnare in tre dimensioni sullo 
schermo del Macintosh. Con MacSpace in qualsiasi mo¬ 
mento, e in tempo reale, il disegnatore potrà avere infor¬ 



mazioni circa l’oggetto rappresentato sullo schermo, co¬ 
me le dimensioni, il perimetro, l'area, e così via. Inol¬ 
tre, lo schermo può essere diviso in quattro finestre che 
permettono la videata simultanea delle viste dall'alto, di 
fronte, di lato e una proiezione assonometrica. Sotto le 
finestre, che possono esere ingrandite, ridotte o nascoste 
con un click di mouse, una lista di informazioni mostra 
i parametri di controllo del disegno che l'operatore sta 
creando sullo schermo. Il programma ha un completo 
dialogo con documenti MacPaint e MacDraw e permette 
la stampa su Image Witer, LaserWriter o Plotter anche 
nel formato A0. Distribuito dalla Pc Personal Computer 
di Piacenza, via Chiapponi 42, telefono 0525/20626, 
Mac Space ha un prezzo di listino di lire 1,1 milioni iva 
9% esclusa. 


•MacGolf 

Cos’è più rilassante di una partita a golf in una limpi¬ 
da giornata di sole? Spesso però il tempo e la tranquilli- 
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un niuuò^ ò^nz,a muuatuut; 


Per ricevere Mouscotte basta compilare e spedire subito questo 
tagliando a Editronica Srl, Corso Monforte 39, 20122 Milano. 


□ Speditemi subito Mouscotte. Accludo assegno non trasferibile 
intestato a Editronica Srl di lire 29.500 comprensive di Iva e 
spese di spedizione al mio indirizzo. 


Un mouse. 

La sua Mouscotte. 


tà necessaria vengono a mancare; co¬ 
sì, per i superimpegnati, è nato Ma- 
cóolf, un programma che simula il 
nobile gioco sul video del Macinto¬ 
sh. Sarete in buona compagnia: tre 
fedeli amici, reali o simulati dal Ma¬ 
cintosh, vi faranno sentire meno so¬ 
li e daranno quel tanto di competi¬ 
tività che non guasta. Giudice inecce¬ 
pibile è sempre lui, il fido Mac, che 
provvede a segnare punti e a indicare 
percentuali e medie di ogni giocato¬ 
re. E’ possibile scegliere fra tre per¬ 
corsi differenti, tutti con un realisti¬ 
co effetto grafico e con gli effetti so¬ 
nori tipici dei colpi del profes¬ 
sionista e del principiante. Infine, 
un indicatore in basso a destra sullo 
schermo segnala velocità e direzione 
del vento. MacGolf costa 60 dollari 
e può essere richiesto a Practical 
Computer Applications Ine., 1305 
Jefferson Hwy., Champlin, MN 
55316, (612) 427-4789, USA. 


•Blues 


Non è un programma dedicato al 
noto genere musicale. E' soltanto l'a- 
cronimo di Better Logic Using 
Expert Software, è stato realizzato 
da una software house olandese ed è 
indirizzato ad analisti di sistema o di 
processi e di programmatori per la 
manutenzione di ogni sistema infor¬ 
mativo in termini di documentazio¬ 
ne. Blues si basa sulle ben note ca¬ 
ratteristiche grafiche di Macintosh 
per generare un numero pressoché il¬ 
limitato di diagrammi utilizzando di¬ 
versi moduli ognuno dei quali può 
funzionare separatamente o in combi¬ 
nazione con gli altri. La Apple sta 
selezionando il distributore per il ter¬ 
ritorio nazionale, ulteriori informa¬ 
zioni possono comunque essere ri¬ 
chieste presso tutti gli Apple Cen¬ 
ter. 


•CVA 


Niente più segni sulla scrivania. 

E una superficie liscia, ideale, appositamente 
studiata per assicurare la massima scorrevolezza 
ed efficienza al mouse. Sotto, uno strato di gomma: 
la Mouscotte non si sposta. Chiedi Mouscotte ai 
migliori Computer Shop Apple. Oppure richiedilo 
direttamente a Editronica usando il tagliando di 
questa pagina. 


□ Speditemi subito Mouscotte. Accludo ricevuta di versamento di 
lire 29.500 sul conto corrente postale n. 19740208 intestato a 
Editronica Srl. 

□ Speditemi subito N.Mouscotte. Accludo ricevuta di 

versamento / assegno di lire. 


□ Desidero fattura. 

Il mio Codice fiscale/Partita Iva è:. 

Cognome . Nome 


Per corsi, presentazioni e proiezio¬ 
ni di qualsiasi genere da Macintosh, 
è disponibile Composite Video Ada- 
pter, una interfaccia video che colle¬ 
gata al Mac permette di collegare il 
gioiello di Cupertino a un video 
esterno o a un proiettore. CVA prele¬ 
va i segnali video dalla CPU per poi 
trasformarli in livelli accettabili per 
il dispositivo esterno che si intende 
utilizzare. Composite Video Adapter 
costa 650 mila lire ed è distribuito 
in .Italia dalla Cesac, via Bergamo 
18, Milano. Telefono 02/5450036. 


Indirizzo. 
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Cap 


Città 


Prov. 























Trasformare tutte le immagini grafiche in tavole di figure a blocco? 

E' un po' più facile a dirsi che a farsi: il problema principale è che, 
non conoscendo le coordinate delle figure esistenti, è alquanto difficile, 
salvo che non ci si arrivi a tentoni, individuare i valori appropriati 
di VT, VB, HR e HL. Ogni difficoltà però è superabile se... 


Orizzontarsi 
senza coordinate 


Uno dopo l'altro, crollano gli osta¬ 
coli che si frapponevano tra il vo¬ 
stro computer e una creatività capace 
di esprimersi a livelli professionali. 
In questa puntata, tappa decisiva, vie¬ 
ne descritto un programma destinato 
a superare tutte le difficoltà legate al¬ 
l’individuazione corretta dei valori di 
VT, VB, HR e HL: con Block Sha- 
pe Maker potete effettivamente crea¬ 
re le vostre figure su di uno schermo 
vuoto. 

Se state cercando di copiare in una 
tavola di figure a blocco figure già 
esistenti, il programma vi fornirà fa¬ 
cilmente il valore corrente della coor¬ 
dinata Y, in quanto è relativa a VT e 
VB. Vi darà anche il valore corrente 
della coordinata X, e così pure il va¬ 
lore del byte orizzontale nel quale vi 
trovate al momento, in quanto è rela¬ 
tivo a HR o HL. 

Se vi occorrono ulteriori particola¬ 
ri vi sarà dato anche (in forma deci¬ 
male) findirizzo di schermo Hi-Res 
del byte nel quale vi trovate, come 
pure il valore (in forma decimale) 
che il byte contiene. 

Infine vedrete la configurazione 
dei bit alfinterno del byte (in ordine 
inverso) e anche il singolo bit sul 
quale vi trovate al momento. 

L’impiego di tutte le opzioni e i 
comandi di Block Shape Maker vi da¬ 
rà la duttilità necessaria per controlla¬ 
re completamente quel che succede 
sullo schermo Hi-Res. Eliminando 
la cancellazione dello schermo che 
c’è a linea 560, inoltre, potrete usare 
la routine per creare e salvare intere 
figure in alta risoluzione. 

Per far girare (con RUN) questo 
programma, oltre a copiare il listato 
in Applesoft (listato 1), dovete a- 
vere sullo stesso dischetto le routine 


Listato 1. Block Shape Maker 


DOS 3.3 


10 

11 

12 

13 

14 

15 

16 
20 

30 

40 

50 

60 

70 

80 


BLOCK SHAPE MAKER 
DI ROBERT DEVINE 
COPYRIGHT (C) 1986 
BY APPLICANDO & 
MICROSPARC, INC 


Apple Ile 


Apple Ile 


90 

100 

110 

115 

120 

130 

140 

150 

160 

170 

180 

190 

200 


REM 
REM 
REM 
REM 
REM 
REM 
REM 

PRINT CHR$ (4) "BLOAD BLOCK ROUTINES 3925E" : HIMEM : 37470: REM 
CARICA LE ROUTINE E IMPOSTA HIMEM PER PROTEGGERLE 
FOR X = 768 TO 791: READ Y: POKE X,Y: NEXT :X = 0:Y = 0: REM 
CARICA IN MEMORIA RECUPERATORE DI BIT 
DATA 164,250,177,38,133,251,162,0,134,252,70,251,38,252,96,16 
4,250,177,38, 9,128, 145,38,96 

TEXT : HOME : PRINT "SE LA FIGURA NON E* IN MEMORIA CARICALA": 

PRINT "PRIMA DI ESEGUIRE QUESTO PROGRAMMA.": PRINT : PRINT 
PRINT "LA FIGURA E* IN MEMORIA S/N ?";: GET A3: PRINT : 1F A3 
= "N" THEN PRINT : PRINT "CARICA ADESSO LA FIGURA.": END 
PRINT : PRINT "IN CHE PAGINA E’ LA TUA FIGURA (1/2) ?";: GET A 
: PRINT : PRINT : PRINT : IF A < 1 OR A > 2 THEN 70 
ON (A < > 2) GOTO 100: PRINT "INTRODUCI I SEGUENTI COMANDI PE 

R": PRINT "LAVORARE A PAGINA 1": PRINT "CALL-151: 2000<4000.5FF 
FM: 3D0G:GOTO40" : PRINT : PRINT 

PRINT "INTRODUCI <RETURN> DOPO OGNI COMANDO": END 
POKE 49232,0: POKE 49239,0: POKE 49235,0:F - 1: REM VISUALI 
ZZA LA FIGURA/IMPOSTA LA VELOCITA 1 =LENTA 

CALL 377 99 : P = 3: REM PREDISPONE I PUNTATORI YTABLE/IMPOSTA 
IL MODO PLOT 

POKE 230,32 : C = 0: GOTO 340 
VTAB 15: GET A3: PRINT 

IF A3 = "S" THEN Y = Y - F: GOTO 280: REM SPOSTA IN SU 

•G" THEN Y = Y + F: GOTO 280: REM SPOSTA IN GIU’ 

CHR3 (8) THEN X = X - F: GOTO 280: REM SPOSTA A SI 


IF A3 = 

IF A3 = 

NISTRA 
IF A3 = 

ESTRA 

IF A3 = "V" THEN F 
IF A3 = "L" THEN F 
CHRS (32) 


CHR3 (21) THEN X = X + F: GOTO 280: REM SPOSTA A D 


IF A3 - 


= 5: GOTO 120: REM 
= 1: GOTO 120: REM 
THEN POKE 49234,0: GOTO 120 
SPAZIO/GRAFICA A TUTTO SCHERMO 

IF A3 = CHR5 (27) THEN POKE 49235,0: GOTO 120 
RIPRISTINA FINESTRA TESTO 

IF A3 = "R" THEN C = 1: CALL 783: GOTO 370: REM 
LOT/ IMPOSTA BIT COLORE 

IF A3 = CHR3 (19) THEN TEXT : GOTO 490: REM 
ARE LA FIGURA 


CAMBIA IN VELOCE 
CAMBIA IN LENTO 

REM BARRA 


REM ESCAPE/ 


CANCELLA HP 
PRONTO A SALV 


230 

IF 

A3 = 

"C" 

THEN 

C = 

1 : 

: GOTO 

120 

: REM 

CANCELLA 

HPLOT 

240 

IF 

A3 = 

"W" 

THEN 

C - 

0: 

: GOTO 

120 

: REM 

* REIMPOSTA 

HPLOT 

250 

IF 

A3 = 

"P" 

THEN 

P = 

3: 

: GOTO 

340 

: REM 

INTRODUCE 

MODO PLOT 

2 60 

IF 

A3 - 

"N" 

THEN 

P - 

0: 

: GOTO 

340 

: REM 

INTRODUCE 

MODO NOPLOT 

270 

GOTO 120 

: REM 

NESSUN 

COMANDO VALIDO 



280 

ON 

(C - 

1) 

GOTO 

360: 

HCOLOR= 

0: 

ON (P 

= 0) GOTO 290: HCOLOR= 


290 HPLOT XC,YC 
300 IF X < 0 THEN X = 0 

310 IF X > 279 THEN X = 279 

320 IF Y < 0 THEN Y = 0 

330 IF Y > 191 THEN Y = 191 

340 ON (C « 1) GOTO 360:XC = 
350: HCOLOR= 3 


X :YC = Y: HCOLOR= P: ON (P 


= 0) GOTO 

(Continua) 
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Solitudine. 

Solitudine è possedere un computer e non usarlo... 
perchè mancano i programmi o l’assistenza tecnica 
ogli accessorio... 

No! Noi non vendiamo solo computers. 

Ma mettiamo a disposizione tutte le risorse che sol¬ 
tanto unagrande organizzazione può offrirà Questo 
è il segreto della nostra continua affermazione. 

No! Noi non vendiamo solo computers. 

■Via Nizza, 48/50/52 1 06/844.84.18 
■Via Nizza, 26/28/30/32 T. 06/844.11.36 

■ Via Soana, 24/26/28 T. 06/759.15.44 

■ Via P. Fiscali, 257/257al257b T. 06/811.02,43 

■ ViaQ. Majorana, 149/153/155 (pro$.aper.) 

I Ass. Tee.: Via Terni, 86/86a/86b T. 06/757.89.36 

1M Computer 
Bini Center 

all’altezza dei tuoi problemi. Sempre. 








delle figure a blocco (listato 2); è 
la stessa routine pubblicata sul nu¬ 
mero precedente di Applicando a 
pag. 73, quindi probabilmente la a- 
vrete già introdotta in memoria. 

Il listato 1 va salvato con l’istru- 
zione 


SAVE BLOCK SHAPE MAKER 


e il listato 2 con 


BSAVE BLOCK ROUTINES 
$925E,A$925EJL$3A2. 


Il programma è stato collaudato a 
fondo, e funziona correttamente. C'è 
però un avvertimento di cui dovete 
tener conto, altrimenti avrete l'im¬ 
pressione che ci sia qualcosa di stra¬ 
no: prima di far girare il programma 
battete HGR, oppure caricate in me¬ 
moria la figura che volete modifica¬ 
re, perché in caso contrario la pagina 
grafica verrà presentata piena di stra¬ 
ni disegni e non potrete lavorare. 

Quando lo eseguite per la prima 
volta, il programma vi chiede se ave¬ 
te una figura in memoria. In caso ne¬ 
gativo vi chiede di caricarne una e 


poi si ferma. Se invece avete già ca¬ 
ricato una figura vi chiede se sia sul¬ 
la pagina 1 della grafica. Se è a pagi¬ 
na 2 (HGR2) vi vengono date brevi 
istruzioni sul modo in cui trasferirla 
a pagina 1. Dovete infatti lavorare 
sulla pagina 1 in modo che sia dispo¬ 
nibile per le vostre informazioni la 
finestra di testo. 

Se volete usare lo Shape Maker 
per creare una figura grafica, assicura¬ 
tevi, prima di far girare il program¬ 
ma, di avere battuto HGR sulla ta¬ 
stiera. Poi ripondete S quando vi vie¬ 
ne chiesto se ci sia una figura carica¬ 
ta; compare poi uno schermo vuoto 
sul quale disegnare la vostra figura. 

I comandi da utilizzare sono sche¬ 
maticamente riassunti in questo som¬ 
mario: 

S Sposta il punto in su 
G Sposta il punto in giù 
-> (freccia destra) Sposta il punto a 
destra 

<- (freccia sinistra) Sposta il punto 
a sinistra 

V Cambia in veloce - 5 punti per 
mossa 

L Cambia in lento - 1 punto per 
mossa 


350 HPLOT XC YC 

360 VTAB 21 : * PRINT "X="X" HTAB 8: PRINT M Y= ,, Y" HTAB 16: 

PRINT " BYTE = " I NT (X / 7)" " ; : HTAB 25: PRINT “INDIRIZZO" ; 
370 POKE 6, Y: CALL 37777:B = PEEK (38) + PEEK (39) * 256 + INT 
(X / 7) : PRINT B" ": REM STAMPA INDIRIZZO DECIMALE 
380 VTAB 23: PRINT "VALORE DEL BYTE=" PEEK (B)" ";: HTAB 16: PRI 

NT "BITS="; : REM STAMPA IL VALORE DEL BYTE 
390 POKE 250, INT (X / 7) : REM IMPOSTA BYTE 0 SU OFFSET 

400 BS = "": CALL 768: IF PEEK (252) = 1 THEN B$ = "1": GOTO 420 

410 BS = "0" 

420 FOR M = 1 TO 7: CALL 774: IF PEEK (252) - 1 THEN B$ = B$ + " 
1": GOTO 440 
430 BS = B$ + "0" 

440 NEXT : FOR M = 1 TO 8 

450 IF M = X - (7 * ( INT (X / 7))) +1 THEN FLASH : REM LAMPE 
GGIA PER IL BIT SU CUI SIAMO 

460 IF M = 8 THEN INVERSE : REM INVERSE PER IL BIT COLORE 

470 PRINT MIDS (B$,M,1);: NORMAL : PRINT " 

480 NEXT : PRINT " ": GOTO 120 

490 HOME : INPUT "INTRODUCI VT ";VT: PRINT 

500 INPUT "INTRODUCI VB ";VB: PRINT 

510 INPUT "INTRODUCI HR ";HR: PRINT 

520 INPUT "INTRODUCI HL ";HL: PRINT : PRINT : PRINT 
530 INPUT "QUAL E' IL N. DELLA FIGURA "; SHAPE: PRINT 
540 HIMEM: SHAPE * 256: REM REIMPOSTA HIMEM PER PROTEGGERE LA F 
IGURA 

550 POKE 251, SHAPE: POKE 252,VT: POKE 253,VB: POKE 254,HR: POKE 2 
55,HL: CALL 37729: REM CREA LA TAVOLA DELLE FIGURE 
560 HGR : POKE 251, SHAPE: CALL 37679: REM LA DISEGNA SULLO SCHE 
RMO 

570 VTAB 22: PRINT "ECCO LA FIGURA DELLA TUA TAVOLA.": PRINT "LA 
VUOI SALVARE (S/N) ?";: GET A$ 

580 IF A$ = "N" THEN END 

590 HOME : VTAB 22: INPUT "QUAL E' IL NOME ";AS 

600 HOME : VTAB 22: PRINT "STO SALVANDO LA FIGURA SUL DISCO" 

610 PRINT CHRS (4)"BSAVE "AS",A"SHAPE * 256",L"(VB - VT + 1 ) * ( 

HR - HL + 1) 

620 END 


Checksum del listato 1 

NOME FILE: 

BLOCK SHAPE MAKER 

TIPO: A 


LUNGHEZZA: 

0 9A1 

CHECKSUM : 

02 
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(Control/S) - Esce sulle routine che 
salvano la figura 

(Barra spazio) Passa alla grafica a tut¬ 
to schermo 

ESC Riporta alla finestra di testo 
P Passa al modo PLOT 
N Passa al modo NO-PLOT 
R Reimposta il bit colore - Cancella 
il modo HPLOT 

C Cancella il modo HPLOT per l’u¬ 
so con byte colorati 
W Reimposta il modo HPLOT per 
l’uso con byte bianchi. 

Viene poi visualizzata sullo scher¬ 
mo l’intera figura che avete caricato. 
A mano a mano che vi spostate sul¬ 
lo schermo, le presenti coordinate X 
e Y del punto compariranno alla ba¬ 
se dello schermo, e altrettanto farà 
l’indirizzo del byte nel quale vi trova¬ 
te al momento. BYTE sarà il valore 
corrente di HR o HL. Quando sarete 
sopra il punto più alto della figura, 
Y sarà uguale a VT; quando sarete 
sopra il punto più basso, Y sarà u- 
guale a VB. Quando sarete sopra il 
punto più a destra o più a sinistra 
della figura, BYTE sarà uguale, a se¬ 
conda del caso, a HR o a HL. 

Se la vostra figura si estende in 
giù fino a entrare nella parte dello 
schermo riservata alla finestra di te¬ 
sto, premete la barra spaziatrice per 
passare alla grafica a tutto schermo, 
in modo da poter vedere che cosa sta¬ 
te facendo. Una volta collocato a do¬ 
vere il punto, premete il tasto ESC 
per tornare alla finestra di testo a leg¬ 
gere i valori necessari. 

Nell’ultima riga troverete il valore 
immagazzinato al presente nel byte, 
come pure la configurazione dei bit 
del byte. La configurazione dei bit 
viene mostrata in ordine contrario, 
a causa del normale effetto di rove¬ 
sciamento dei byte sullo schermo Hi- 
Res. Il bit colore sarà mostrato in in¬ 
verse, e il bit sul quale si trova al 
momento il vostro punto sarà mo¬ 
strato in modo lampeggiante. 

Avrete probabilmente bisogno di 
spostarvi sullo schermo in modo P 
(PLOT) così da poter vedere dove sie¬ 
te. Quando il vostro punto entra in 
un byte cambierà automaticamente 
in 1 il bit sul quale si trova. Se vole¬ 
te riazzerare quel bit premete N (NO 
PLOT) e il bit passerà a 0. Median¬ 
te i tasti P e N potete spostarvi sul¬ 
la vostra figura accendendo e spe¬ 
gnendo i bit a volontà. L’effetto che 
state ottenendo sulla figura sarà mo¬ 
strato nel display dei bit come pure 
sullo schermo. Se intendete salvare 
la figura senza alcuna modifica fate 


attenzione a usare i tasti P e N per ri¬ 
portare ogni bit al suo stato prece¬ 
dente a mano a mano che vi spostate 
qua e là nella figura. 

Una volta che avete determinato, e 
annotato su di un foglio (non sotto- 
valutate l'importanza di questa anno¬ 
tazione!), i valori di VT, VB, HR e 
HL, fate CTRL-S per salvare la figu¬ 
ra. Sarete invitati a introdurre i valo¬ 
ri di VT, VB, HR e HL. Dovrete an¬ 
che scegliere un numero di figura 
(SHAPE#) e introdurlo adesso. State 
attenti a lasciare spazio a sufficienza 
perché la vostra figura trovi posto 
sotto il driver. 

Una volta introdotti i valori appro¬ 
priati, la vostra figura viene messa 
con SCAN in una tavola di figure a 
blocco. Infine la figura che avevate 
caricato viene cancellata, e la figura 
che avete creato viene disegnata con 
DRAW sullo schermo, con l'impie¬ 
go dei dati ora immagazzinati nella 
tavola delle figure. 

A questo punto vi sarà chiesto se 
volete salvare la vostra figura sul di¬ 
sco. In caso negativo rispondete ”N” 
e il programma avrà termine. Per 
provare di nuovo dovrete ricaricare 
l’immagine originaria e far girare 
nuovamente il programma con 
RUN. Se rispondete ”S" la vostra fi¬ 
gura sarà salvata sul dischetto con il 
nome da voi scelto. 

Come si carica 
una figura originale 

E’ difficile per un programma co¬ 
me questo caricare automaticamente 
la vostra figura, dato che esso non 
ha idea dell’ubicazione della figura, 
del suo nome o del metodo che state 
usando per crearla. Se la figura viene 
generata da un altro programma, fate 
prima girare quello, e fermatelo quan¬ 
do la grafica occorrente si trova sul¬ 
lo schermo. Quindi fate girare il pro¬ 
gramma Shape Maker che caricherà 
il driver, e usate la grafica che si tro¬ 
va in memoria. 

Se intendete giostrare con la stessa 
figura diverse volte, e non volete 
prendervi il fastidio di far girare ogni 
volta il primo programma e lo Sha¬ 
pe Maker, potreste provare a salvare 
su disco dal primo programma la gra¬ 
fica desiderata. Per far questo fate gi¬ 
rare il primo programma fino a che 
la grafica voluta si trova sullo scher¬ 
mo. Poi fermate il programma con 
CTRL-C, o con RESET, come op¬ 
portuno. Per salvare l'intera videata 
grafica introducete 




I Intercludo 

Grafica Interattiva 
per APPLE e 
DEC prò 

v. Borgo Melano 27 
51100 Pistoia 
tei. (0573) 

31307-8 
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Listato 2. Routine 
delle figure a blocco. 

925E.95FF 


925E- 

9260- 

38 

FC 

A5 

E5 

E3 

85 

FC 

38 

A5 

FD 

9268- 

E5 

E3 

85 

FD 

60 

18 

A5 

FC 

9270- 

65 

E3 

85 

FC 

18 

A5 

FD 

65 

9278- 

E3 

85 

FD 

60 

A9 

00 

8D 

54 

9280- 

CO 

A9 

40 

85 

E6 

A5 

FC 

C5 

9288- 

E3 

90 

0F 

20 

6D 

92 

20 

2 F 

9290- 

93 

20 

5E 

92 

20 

5E 

92 

20 

9298- 

2F 

93 

60 

A9 

00 

8D 

55 

CO 

92A0- 

A9 

20 

85 

E6 

20 

6D 

92 

20 

92A8- 

2F 

93 

20 

5E 

92 

20 

5E 

92 

92B0- 

20 

2F 

93 

60 

A9 

00 

8D 

54 

92B8- 

CO 

A9 

40 

85 

E6 

20 

5E 

92 

92C0- 

20 

2F 

93 

20 

6D 

92 

20 

6D 

92C8- 

92 

20 

2F 

93 

60 

A9 

00 

8D 

92D0- 

55 

CO 

A9 

20 

85 

E6 

20 

5E 

92D8- 

92 

20 

2F 

93 

20 

6D 

92 

20 

92E0- 

6D 

92 

20 

2F 

93 

60 

A9 

00 

92E8- 

85 

FA 

A5 

FD 

85 

06 

20 

91 

92F0- 

93 

A4 

FF 

A2 

00 

Al 

FA 

C9 

92F8- 

7F 

F0 

15 

C 9 

01 

90 

11 

86 

9300- 

F9 

4A 

26 

F9 

E8 

E0 

07 

90 

9308- 

F8 

4 A 

A5 

F9 

90 

02 

09 

80 

9310- 

91 

26 

C8 

E6 

FA 

DO 

02 

E6 

9318- 

FB 

C4 

FE 

90 

D6 

F0 

D4 

C6 

9320- 

06 

A5 

06 

C9 

FF 

F0 

04 

C5 

9328- 

FC 

B0 

C3 

20 

61 

93 

60 

A9 

9330- 

00 

85 

FA 

A5 

FD 

85 

06 

20 

9338- 

91 

93 

A4 

FE 

A2 

00 

Al 

FA 

9340- 

51 

26 

91 

26 

88 

18 

E6 

FA 

9348- 

DO 

02 

E6 

FB 

CO 

FF 

F0 

04 

9350- 

C4 

FF 

B0 

EA 

C6 

06 

A5 

06 

9358- 

C9 

FF 

F0 

04 

C5 

FC 

B0 

D7 

9360- 

60 

A9 

00 

85 

FA 

A5 

FD 

85 

9368- 

06 

20 

91 

93 

A4 

FE 

A2 

00 

9370- 

B1 

26 

81 

FA 

88 

18 

E6 

FA 

9378- 

DO 

02 

E6 

FB 

CO 

FF 

F0 

04 

9380- 

C4 

FF 

B0 

EC 

C6 

06 

A5 

06 


BSAVE PICTURE, A$2000, 
L$2000 


per salvare la pagina 1, oppure 


BSAVE PICTURE, A$4000, 
L$2000 


per salvare la pagina 2. 

D'ora in poi ogni volta che vorre¬ 
te ricaricare la figura vi basterà fare 
BLOAD PICTURE. 

Come funziona 
il programma 

La linea 20 carica il Block Shape 
Driver e imposta HIMEM a sua pro¬ 
tezione. 

Le linee 30-40 caricano in memo¬ 
ria con POKE una breve routine in 
linguaggio macchina, che sarà utiliz¬ 
zata per trovare le configurazioni di 
bit nei byte dello schermo Hi-Res e 
per impostare il bit colore. 

Le linee 50-90 controllano se sia 
stata caricata una figura e se si trovi 
a pagina 1. 

La linea 100 visualizza la figura 
Hi-Res originale e imposta su lento 
il flag di movimento. 


9388- 

C9 

FF 

F0 

04 

C5 

FC 

B0 

D9 

9390- 

60 

A4 

06 

B1 

CE 

85 

26 

A5 

9398- 

E6 

C9 

40 

DO 

05 

B1 

DE 

85 

93A0- 

27 

60 

B1 

EE 

85 

27 

60 

A9 

93A8- 

80 

85 

CE 

A9 

94 

85 

CF 

A9 

93B0- 

40 

85 

EE 

A9 

95 

85 

EF 

A9 

93B8- 

CO 

85 

DE 

A9 

93 

85 

DF 

60 

93C0- 

40 

44 

48 

4C 

50 

54 

58 

5C 

93C8- 

40 

44 

48 

4C 

50 

54 

58 

5C 

93D0- 

41 

45 

49 

4D 

51 

55 

59 

5D 

93D8- 

41 

45 

49 

4D 

51 

55 

59 

5D 

93E0- 

42 

46 

4 A 

4E 

52 

56 

5A 

5E 

93E8- 

42 

46 

4A 

4E 

52 

56 

5A 

5E 

93F0- 

43 

47 

4 B 

4F 

53 

57 

5B 

5F 

93F8- 

43 

47 

4 B 

4F 

53 

57 

5B 

5F 

9400- 

40 

44 

48 

4C 

50 

54 

58 

5C 

9408- 

40 

44 

48 

4C 

50 

54 

58 

5C 

9410- 

41 

45 

49 

4D 

51 

55 

59 

5D 

9418- 

41 

45 

49 

4D 

51 

55 

59 

5D 

9420- 

42 

46 

4 A 

4E 

52 

56 

5A 

5E 

9428- 

42 

46 

4 A 

4E 

52 

56 

5A 

5E 

9430- 

43 

47 

4 B 

4F 

53 

57 

5B 

5F 

9438- 

43 

47 

4 B 

4F 

53 

57 

5B 

5F 

9440- 

40 

44 

48 

4C 

50 

54 

58 

5C 

9448- 

40 

44 

48 

4C 

50 

54 

58 

5C 

9450- 

41 

45 

49 

4D 

51 

55 

59 

5D 

9458- 

41 

45 

49 

4D 

51 

55 

59 

5D 

9460- 

42 

46 

4A 

4E 

52 

56 

5A 

5E 

9468- 

42 

46 

4 A 

4E 

52 

56 

5A 

5E 

9470- 

43 

47 

4 B 

4F 

53 

57 

5B 

5F 

9478- 

43 

47 

4 B 

4F 

53 

57 

5B 

5F 

9480- 

00 

00 

00 

00 

00 

00 

00 

00 

9488- 

80 

80 

80 

80 

80 

80 

80 

80 

9490- 

00 

00 

00 

00 

00 

00 

00 

00 

9498- 

80 

80 

80 

80 

80 

80 

80 

80 

94A0- 

00 

00 

00 

00 

00 

00 

00 

00 

94A8- 

80 

80 

80 

80 

80 

80 

80 

80 

94B0- 

00 

00 

00 

00 

00 

00 

00 

00 

94B8- 

80 

80 

80 

80 

80 

80 

80 

80 

94C0- 

28 

28 

28 

28 

28 

28 

28 

28 

94C8- 

A8 

A8 

A8 

A8 

A8 

A8 

A8 

A8 

94D0- 

28 

28 

28 

28 

28 

28 

28 

28 

94D8- 

A8 

A8 

A8 

A8 

A8 

A8 

A8 

A8 

94E0- 

28 

28 

28 

28 

28 

28 

28 

28 


La linea 110 imposta i puntatori 
di YTABLE e il flag del modo 
PLOT. 

La linea 120 riceve (GET) il vo¬ 
stro input. 

Le linee 130-270 controllano l’in¬ 
put da tasto e intraprendono l'azione 
appropriata. 

Le linee 280-350 controllano se 
debba essere tracciato un punto e lo 
tengono sullo schermo. 

La linea 360 stampa i presenti va¬ 
lori di X, Y e BYTE. 

La linea 370 salta a YADDR per 
ricevere 0 della linea su cui vi trova¬ 
te, poi calcola e stampa il valore de¬ 
cimale del byte sul quale si trova al 
momento il vostro punto. 

La linea 380 stampa il valore im¬ 
magazzinato al momento nel byte in 
cui vi trovate. 

Le linee 390-440 usano la routine 
in linguaggio macchina per determi¬ 
nare la configurazione di bit nel byte 
corrente e convertono quelle informa¬ 
zioni in B$. 

Le linee 450480 stampano la con¬ 
figurazione di bit e controllano su 
quale bit vi trovate al presente. 

Le linee 490-530 ricevono i valori 
di input per VT, VB, HR, HL e 
SHAPE#. 


94E8- 

A8 

A8 

A8 

A8 

A8 

A8 

A8 

A8 

94F0- 

28 

28 

28 

28 

28 

28 

28 

28 

94F8- 

A8 

A8 

A8 

A8 

A8 

A8 

A8 

A8 

9500- 

50 

50 

50 

50 

50 

50 

50 

50 

9508- 

DO 

DO 

DO 

DO 

DO 

DO 

DO 

DO 

9510- 

50 

50 

50 

50 

50 

50 

50 

50 

9518- 

DO 

DO 

DO 

DO 

DO 

DO 

DO 

DO 

9520- 

50 

50 

50 

50 

50 

50 

50 

50 

9528- 

DO 

DO 

DO 

DO 

DO 

DO 

DO 

DO 

9530- 

50 

50 

50 

50 

50 

50 

50 

50 

9538- 

DO 

DO 

DO 

DO 

DO 

DO 

DO 

DO 

9540- 

20 

24 

28 

2C 

30 

34 

38 

3C 

9548- 

20 

24 

28 

2C 

30 

34 

38 

3C 

9550- 

21 

25 

29 

2D 

31 

35 

39 

3D 

9558- 

21 

25 

29 

2D 

31 

35 

39 

3D 

9560- 

22 

26 

2A 

2E 

32 

36 

3A 

3E 

9568- 

22 

26 

2A 

2E 

32 

36 

3A 

3E 

9570- 

23 

27 

2B 

2F 

33 

37 

3B 

3F 

9578- 

23 

27 

2 B 

2F 

33 

37 

3B 

3F 

9580- 

20 

24 

28 

2C 

30 

34 

38 

3C 

9588- 

20 

24 

28 

2C 

30 

34 

38 

3C 

9590- 

21 

25 

29 

2D 

31 

35 

39 

3D 

9598- 

21 

25 

29 

2D 

31 

35 

39 

3D 

95A0- 

22 

26 

2A 

2E 

32 

36 

3A 

3E 

95A8- 

22 

26 

2A 

2E 

32 

36 

3A 

3E 

95B0- 

23 

27 

2B 

2F 

33 

37 

3B 

3F 

95B8- 

23 

27 

2 B 

2F 

33 

37 

3B 

3F 

95C0- 

20 

24 

28 

2C 

30 

34 

38 

3C 

95C8- 

20 

24 

28 

2C 

30 

34 

38 

3C 

95D0- 

21 

25 

29 

2D 

31 

35 

39 

3D 

95D8- 

21 

25 

29 

2D 

31 

35 

39 

3D 

95E0- 

22 

26 

2A 

2E 

32 

36 

3A 

3E 

95E8- 

22 

26 

2A 

2E 

32 

36 

3A 

3E 

95F0- 

23 

27 

2 B 

2F 

33 

37 

3B 

3F 

95F8- 

23 

27 

2B 

2F 

33 

37 

3B 

3F 


Checksum del listato 2 

APPLE CHECKER 3.0 
NOME FILE: YTABLE 
TIPO: B 

LUNGHEZZA: 03A2 
CHECKSUM : EE 


La linea 540 reimposta HIMEM 
per proteggere la vostra nuova fi¬ 
gura. 

La linea 550 crea la nuova tavola 
delle figure. 

La linea 560 cancella lo schermo 
Hi-Res mediante HGR e disegna la 
figura dalla tavola.Supponete di co¬ 
minciare la vostra figura, lunga due 
pagine e un quarto, a $9000 (nume¬ 
ro di figura 144). Per prima cosa fa¬ 
te POKE 251, 144 a linea 550 e usa¬ 
te una routine pilota (in questo caso 
era SCAN). Usciti dalla routine 
avreste incrementato (senza alcuno 
sforzo) il numero di figura portando¬ 
lo a 146, il che è esattamente ciò 
che avrebbe dovuto accadere. 

Adesso cercate di usare un'altra rou¬ 
tine del driver senza reimpostare il 
vostro numero di figura. Ma perché 
preoccuparsene, dato che il numero 
di figura è già stato impostato? 

Quando percorrete la seconda routi¬ 
ne il vostro numero di figura parte 
da 146, dove lo avevate lasciato, e fi¬ 
nisce la seconda routine a 148. La 
spiegazione sta nel fatto che la vo¬ 
stra tavola delle figure è stata creata 
a dovere nella prima routine, ma 
quando avete cercato di disegnarla a- 
vete ottenuto solo l’ultimo quarto di 
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pagina della vostra figura. Il resto di 
ciò che vedete sullo schermo è costi¬ 
tuito da garbage, segni senza signifi¬ 
cato, e state disegnando i byte esade- 
cimali del Block Shape Driver! 

Il punto è semplicemente questo: 
fintanto che le vostre figure sono di 
lunghezza inferiore a una pagina tut¬ 
to va bene; non avrete da fare nuova¬ 
mente il POKE del numero di figura 
a meno che non la cambiate. Se pe¬ 
rò affrontate figure più grandi (oppu¬ 
re dovete tener conto, come in que¬ 
sto programma, della possibilità che 
qualcun altro adoperi figure più gran¬ 
di) non mancate di ricordare questa le¬ 
zione, e reimpostate il vostro nume¬ 
ro di figura ogni volta che usate una 
routine del driver per le figure. 

Le linee 570-620 concludono il 
programma, salvando sul disco la fi¬ 
gura completata. 

Un'attenzione speciale 
per il bit colore 

I due comandi con cui dovete poi 
prendere familiarità sono i comandi 
C (colore) e W (solo bianco). 

Se avete a che fare esclusivamente 
con byte non colorati (bianchi o ne¬ 


ri) potete restare nel modo W, che vi 
dà la scelta fra l’uso del tasto P 
(Plot) e quello del tasto N (No-Plot) 
per cambiare i bit e tracciare i punti 
mentre vi spostate sul foglio. Il pro¬ 
blema sta però nel fatto che, quando 
siete nel modo W, ogni volta che 
tracciate con HPLOT un singolo 
punto in un byte metterete a zero, se 
era a uno, il bit colore (bit 7), sia 
che stiate mettendo un bit a uno sia 
che lo stiate azzerando. 

Se entrate in un byte in cui il bit 
colore è a uno (mentre siete in modo 
W) cambierete sempre in zero il bit 
colore. Se vi state avvicinando a un 
byte che ha (o può avere) colore al 
suo interno, cambiate prima nel mo¬ 
do C (colore) per evitare di azzerare 
il bit colore. 

Perderete il punto che sullo scher¬ 
mo vi mostra dove vi trovate quando 
siete nel modo C. Una volta che ave¬ 
te lasciato il byte colore (siete ades¬ 
so in un byte in cui il bit colore è 
zero) potete tornare al modo W. 
Mentre siete nel modo C i tasti P e 
N non funzioneranno e quindi non 
sarete in grado di cambiare lo stato 
di alcun bit. 

Tuttavia il display BIT continuerà 


a indicare dove siete all’intemo del 
byte. 

E’ da notare che ci sono due opzio¬ 
ni di colore per il bianco e nero, 
HCOLOR=3 o 7 per il bianco e 
HCOLOR=0 o 4 per il nero. In 
HCOLOR=7 o HCOLOR=4 anche 
il bit alto è a uno. 

L'ultimo comando del quale dovete 
avere conoscenza è il comando R 
(reimposta bit colore). Se azzerate ac¬ 
cidentalmente un bit colore, o se vo¬ 
lete modificare le configurazioni di 
bit in un byte (magari per aggiunge¬ 
re colore o risolvere qualche conflit¬ 
to di colore) usate prima il modo W 
e i tasti P e N per impostare i bit 0- 
6 come li volete. Poi usate il tasto 
R per ripristinare il bit colore. Il ri¬ 
corso al tasto R vi farà anche tornare 
al modo C, per poter lasciare in mo¬ 
do sicuro il byte senza dover azzerare 
nuovamente il bit colore. 

s ; \ 

Questo programma è disponibile 
su dischetto. L’elenco, i prezzi 
e le modalità d’ordine di questo 
e degli altri dischetti disponibili 
sono riportati nella rubrica 
Disk Service. 

_ J 
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ETICHETTE 



Utile soprattutto per conservare un elenco di nomi e indirizzi 
per la stampa di etichette postali, ma anche in qualsiasi situazione 
in cui si voglia archiviare e stampare una varietà di etichette liberamente 
formattate, Postmaster, in Applesoft, permette di creare fino a 100 
etichette, salvarle su disco e stamparle in una varietà di stili. 

Il postino 

passa solo una volta 


Immaginate il tavolo sul quale ver¬ 
rà depositata, al suo arrivo, la lettera 
che avete appena imbucato. Il solito 
mare di carte, la solita pila di corri¬ 
spondenza da sbrigare: la vostra bu¬ 
sta forse non rischia di venir cestina¬ 
ta, ma di essere confusa in mezzo a 
tante altre e letta con giorni di ritar¬ 
do probabilmente sì. 

Anche per questo motivo, e non 
solo per una vostra più efficiente ge¬ 
stione della posta in partenza, vi sa¬ 
rà utile Postmaster: un tocco di pro¬ 
fessionalità in più, un'abile persona¬ 
lizzazione fanno tutta la differenza 
tra la busta che viene aperta subito e 
quella che rimane nella pila. Potete 
stampare infatti l'indirizzo in neret¬ 
to, in espanso, in ogni carattere che 
vi è consentito dalla stampante che 
usate, formattando liberamente l’eti¬ 
chetta, con risultati che obbediscono 
solo alla vostra fantasia. 

Ma non solo. La gestione, in ordi¬ 
ne alfabetico se lo si vuole, di cento 
nomi e reaitivi indirizzi è una como¬ 
dità da non sottovalutare se appena 
si utilizza abitualmente una rete di 
corrispondenza un po' vasta. 

Come si usa 
il programma 

Quando farete RUN POSTMA¬ 
STER vedrete il menù riprodotto nel¬ 
la figura 1. Per scegliere una delle 
opzioni spostate il cursore in inver¬ 
se mediante le frecce destra e sini¬ 
stra. Quando la barra sarà ferma sul¬ 
l'opzione che volete utilizzare, non a- 
vrete che da premere il tasto <RE- 
TURN>. 


La prima opzione del menù, Crea¬ 
re nuova etichetta, è selezionata auto¬ 
maticamente quando si esegue per la 
prima volta il programma, quindi ba¬ 
sta premere <RETURN> per accet¬ 
tarla. Verrà allora visualizzata una 
griglia intesa a guidare la vostra im¬ 
missione di un nome e di un indiriz¬ 
zo; come indica la griglia le etichet¬ 
te possono avere un massimo di 10 
righe e ogni riga può contenere un 
massimo di 32 caratteri. 

Quando avete finito di introdurre 
le informazioni necessarie per un'eti¬ 


chetta, battete un punto e premete il 
tasto <RETURN> per segnalare che 
avete finito. Il computer vi chiederà 
poi se le informazioni immesse so¬ 
no esatte. In caso affermativo battete 
S per dire di sì. Altrimenti battete 
N per ricominciare da capo l'op¬ 
zione. 

Una volta inserite tutte le informa¬ 
zioni per un'etichetta potete salvarla 
o stamparla. Nella prima ipotesi sce¬ 
gliete l’opzione Salvare etichetta cor¬ 
rente sul menù principale, e l’etichet¬ 
ta che avete appena introdotto sarà 


Tavola 1. Variabili del programma principale 

L$(1 -10) 

Conserva l'etichetta corrente. 

K$(0,0-99,9) 

Conserva tutte le etichette salvate. 

M$(0-9) 

Conserva le voci del menù principale. 

AM 

Numero delle voci del menù principale. 

N 

Numero delle etichette (comincia da 0). 

R 

Contatore usato quando si visualizzano le etichette. 

CH 

Vero (1) se il file dell'etichetta è cambiato. 

X 

Dà il valore ASCII dei singoli input di carattere. 

P(1-3) 

Individua lo stato delle opzioni di stampante. 

CL 

Colonna in cui cominciare a stampare. 

CC$ 

CL convertito in una stringa di spazi. 

1$ 

Stringa inizializzazione stampante. 

T1$ 

Stringa controllo stampante per neretto ON. 

C1$ 

Stringa controllo stampante per neretto OFF. 

T2$ 

Stringa controllo stampante per espanso ON. 

C2$ 

Stringa controllo stampante per espanso OFF. 

T3$ 

Stfinga controllo stampante per condensato ON. 

C3$ 

Stringa controllo stampante per condensato OFF. 

GG$ 

Concatenamento di 1$, TI $, T2$ e T3$. 

G$ 

Concatenamento di C1$, C2$ e C3$. 
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presentata sullo schermo. Battete S 
quando il computer vi chiede se è 
questa l'etichetta che volete salvare 
(per rendere più veloce il programma 
le etichette sono in realtà "salvate" 
nella memoria fino a quando sceglie¬ 
te l'opzione fine). 

Poi venite riportati automatica- 
mente al menù principale. L'opzione 
successiva vi permette di esaminare 
l'etichetta corrente: in questa fase 
sembra superflua, ma dimostrerà in 
seguito la sua utilità, precisamente 
quando avrete bisogno di stampare 
varie etichette differenti durante un'u¬ 
nica seduta. Premete un tasto qualun¬ 
que per tornare al menù. 

Adesso passate all'opzione Stampa¬ 
re etichetta corrente. Dovreste ormai 
trovarvi a vostro agio con la barra 
cursore in inverse quale mezzo rapi¬ 
do e facile per selezionare le diverse 
opzioni. Ancora una volta la vostra 


etichetta sarà visualizzata sullo scher¬ 
mo. Se si tratta effettivamente di 
quella che volete stampare battete S 
in risposta all’invito. 

Il computer vi presenterà poi una 
serie di opzioni per la stampante. 
Mediante la barra spaziatrice commu¬ 
tate fra S e N per scegliere le opzio¬ 
ni che volete. Usate il tasto <RE- 
TURN> per accettare un'opzione di 
stampante quando la reazione che de¬ 
siderate è visualizzata in inverse sul¬ 
lo schermo. Vi sarà poi chiesto a 
quale colonna volete far incomincia¬ 
re la stampa dell'etichetta. Il valore 
di default è 1, e per accettarlo basta 
premere <RETURN> come in prece¬ 
denza. Infine vi verrà chiesto se le 
scelte sopra indicate siano esatte. In 
caso negativo vi sarà data l'opportu¬ 
nità di ripetere l'introduzione delle o- 
pzioni di stampa. 

Il programma vi rammenterà quin¬ 


di di accendere la stampante. Quando 
questa è accesa, e avete predisposto 
le vostre etichette o buste in bianco, 
premete la barra spazio per comincia¬ 
re a stampare. 

Quando la stampa dell'etichetta è 
ultimata premete nuovamente la bar¬ 
ra spazio per mettere in posizione l'e¬ 
tichetta seguente. Potete rinunciare a 
questo passo, premendo invece <RE- 
TURN>, se volete sistemare a mano 
le etichette o le buste. 

Se volete potete continuare a stam¬ 
pare questa stessa etichetta. Il pro¬ 
gramma vi chiederà conferma ogni 
volta che decidete di farne un'altra u- 
guale. Quando volete smettere non a- 
vete che da premere N quando siete 
invitati a dire se volete stampare an¬ 
cora la stessa etichetta. L'opzione 
Ordinare etichette vi consente di met¬ 
tere in ordine alfabetico tutte le vo¬ 
stre vecchie etichette in base alle pri- 


Listato 1. Postmaster 

DOS 3.3 

10 REM _-___ 

ProDOS 

20 REM POSTMASTER 

30 REM DI FINN ERIK LOVDAL 

40 REM COPYRIGHT (C) 1986 

Apple Ile 

Apple Ile 


60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 
200 
210 
220 
230 
240 
250 
2 60 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 

370 
380 
3 90 
400 
410 
420 


MICROSPARC, 


& 

INC 


POKE 216,0: HOME 
INIZIALIZZA 
TITOLO 

CONTROLLA SE CE* IL FILE 


UN TASTO PER 
GOTO 160 


REM 
REM 
REM 

TEXT : POKE 34,0: 

GOSUB 220: REM 
GOSUB 410: REM 
GOSUB 2960: REM 
ONERR GOTO 150 
VTAB 23: HTAB 5: PRINT "PREMI 
COMINCIARE": GOSUB 3190: 

CALL - 3288 
GOSUB 500 

HB = 1: HOME : INVERSE : GOSUB 3240: GOSUB 
660: GOSUB 3240: NORMAL 

ON SE GOSUB 700,860,1490,1550,1640,1790,188 
0,1930,2130: GOTO 160 

REM INIZIALIZZAZIONE PRINCIPALE 

R EM =========================== 

D$ = CHR$ (4) 

AM = 9:CL = 1 
DIM MS(AM) 

DIM L$(10),P(3),K$(100,9) 


"MENU PRINCIPALE " 

"CREARE NUOVA ETICHETTA" 
"STAMPARE ETICHETTA CORRENTE 
"VEDERE ETICHETTA CORRENTE " 
"CARICARE VECCHIA ETICHETTA" 
"SALVARE ETICHETTA CORRENTE" 
"ELIMINARE VECCHIA ETICHETTA 
"VEDERE VECCHIE ETICHETTE" 
"ORDINARE ETICHETTE" 

"SALVARE FILE E SMETTERE " 


MS (0) 

MS (1) 

MS (2) 

MS (3) 

MS (4) 

MS (5) 

MS (6) 

MS (7) 

MS (8) 

MS (9) 

L$ (0) = ".": 

REM 32 PUNTINI 
RETURN 

REM ================= 

REM TITOLO PRINCIPALE 

VTAB 3: INVERSE : GOSUB 3240 
PRINT " POSTMASTER 

GOSUB 3240: REM 15 E 15 SPAZI 
430 PRINT " DI FINN ERIK LOVDAL 

GOSUB 3240: REM 11 E 10 SPAZI 

(C) 1986 BY APPLICANDO & MICROSPA 
GOSUB 3240 


450 
4 60 


PRINT 
RC " 
NORMAL 
RETURN 


470 REM ================ 

480 REM MENU PRINCIPALE 
490 REM ================ 

500 HOME :HB = 1:1 = 0: INVERSE : GOSUB 3240: G 
OSUB 660: GOSUB 3240: NORMAL 
510 BB = 0: FOR I = 1 TO AM : B = LEN (M$(I)): I 
F B > BB THEN BB = B 
520 NEXT I 

530 HB = INT ((40 - (BB + 4)) / 2) +1 

540 VB = INT ((24 - (AM + 5)) / 2) +4 

550 VTAB VB + AM + 1: HTAB 1: FOR I =1 TO 40: 

PRINT CHRS (45);: NEXT 

560 VTAB VB + AM + 3: PRINT " <= => SELEZIONA 

<RTN> ESEGUE " 

570 FOR I = 1 TO AM: GOSUB 650: NEXT :I =1: IN 
VERSE : GOSUB 650: NORMAL 
580 GOSUB 3190 

590 IF X = 13 THEN SE = I : RETURN 

600 IF X = 21 AND I < AM THEN GOSUB 650:1 = I 

+ 1: INVERSE : GOSUB 650: NORMAL : GOTO 580 
610 IF X = 8 AND I > 1 THEN GOSUB 650:1 = I - 
1: INVERSE : GOSUB 650: NORMAL : GOTO 580 
620 IF X = 21 AND I = AM THEN GOSUB 650:1 = 1: 

INVERSE : GOSUB 650: NORMAL : GOTO 580 
630 IF X = 8 AND 1=1 THEN GOSUB 650:1 = AM: 

INVERSE : GOSUB 650: NORMAL : GOTO 580 
640 GOTO 580 

650 VTAB VB + I - 1: HTAB HB 

660 PRINT SPC( ((40 - 2 * HB - LEN (M$(I))) / 
2) + 1) ; M$ (I); SPC ( ((40 - 2 * HB - LEN ( 
M$ ( I))) / 2) + 1): RETURN 
670 REM ====================== 

680 REM CREARE NUOVA ETICHETTA 
690 REM ====================== 

700 IF L$(1) < > "" THEN GOSUB 2860 

710 VTAB 10: HTAB 1 

720 FOR I = 1 TO 9: PRINT " "I" "L3 (0): NEXT : 

PRINT " 10 " L$(0 ) 

730 VTAB 23: HTAB 8: PRINT "<.> TERMINA INSERIM 
ENTO" 

740 W = 9 : C = 0 

750 W=W+1:C=C+1: VTAB VV: HTAB 5: GOS 

UB 3110 : L$ (C) = A$: IF L$ (C) = "." THEN L$ ( 
C) = "": GOTO 780 

760 IF C = 10 THEN C = 11 : GOTO 780 
770 GOTO 750 

780 C = C - 1: VTAB 10: HTAB 1: CALL - 958: GO 
SUB 3230 

790 VTAB 20: FOR I = 1 TO 40: PRINT CHRS (95); 
: NEXT 

800 VTAB 23: HTAB 11: PRINT "E* GIUSTO COSI’ ? 
";: GOSUB 3210 

810 IF X = 78 THEN GOSUB 2910 
820 RETURN 

840 REM STAMPARE ETICHETTA CORRENTE 
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me cinque lettere della prima riga. 
Poiché se avete molte etichette l’ope¬ 
razione può richiedere tempo, venite 
avvertiti di questo fatto e vi viene 
chiesto il permesso di procedere. 
Quando le etichette sono state ordina¬ 
te usate l’opzione Vedere Vecchie eti¬ 
chette per osservare il risultato fi¬ 
nale. Se volete tenere le etichette in 
ordine alfabetico per cognome, ma 
non volete che il cognome venga 
stampato prima del nome, introduce¬ 
te il cognome a riga 1, e il nome e 
cognome che volete stampare a riga 
2. Poi cambiate la seconda istruzio¬ 
ne di linea 1300 in modo che dica 
FOR I = 2 TO C. Sembrerà che la 
vostra etichetta abbia due righe con¬ 
tenenti il nome, ma in realtà verrà 
stampata solo la seconda. 

L’opzione di caricamento di una 
vecchia etichetta vi consente di desi¬ 
gnare come etichetta corrente una 


CREARE NUOVA ETICHETTA 
STAMPARE ETICHETTA CORRENTE 
VEDERE ETICHETTA CORRENTE 
CARICARE VECCHIA ETICHETTA 
SALVARE ETICHETTA CORRENTE 
ELIMINARE VECCHIA ETICHETTA 
VEDERE VECCHIE ETICHETTE 
ORDINARE ETICHETTE 
SALVARE FILE E SMETTERE 


<= => SELEZIONA <RTN> ESEGUE 


Figura 1. Il menù principale 
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IF L$ (1 ) = ,,,, THEN RETURN 
VTAB 6: GOSUB 3230 

VTAB 16: FOR II = 1 TO 40: PRINT CHR$ (95) 

; : NEXT 

VTAB 20: HTAB 4: PRINT "VUOI STAMPARE QUEST 
A ETICHETTA ? "; : GOSUB 3210' 

IF X = 78 THEN RETURN 
VTAB 18: HTAB 1: CALL - 958 
PRINT "NERETTO ?": PRINT "ESPANSO ?": PRINT 
"CONDENSATO ?" 

VTAB 23: PRINT "<BARRA SPAZIO> CAMBIA <R 
TN> ACCETTA" 

FOR V = 18 TO 20: VTAB V: HTAB 26: GOSUB 14 
50: NEXT 

FOR V = 18 TO 20 

VTAB V: HTAB 35: GET A$: IF A$ < > CHR$ ( 

32) AND A$ < > CHRS (13) THEN 960 

IF A$ = CHRS (13) THEN P(V - 17) =1: GOTO 
990 

VTAB V: HTAB 26: GOSUB 1440 :P(V - 17) =0 
NEXT V 

VTAB 23: PRINT " " ; : REM 15 

SPAZI 

VTAB 21: HTAB 1: CALL - 958: PRINT "INIZI 
0 STAMPA ALLA COLONNA";: HTAB 28: PRINT CL 
;: HTAB 34: INPUT " ";A$: IF A$ = "" THEN 
1040 

CL = VAL (A$) : IF CL < 1 OR CL > 70 THEN 
CL = 1: GOTO 1010 

VTAB 21: HTAB 28: CALL - 868: PRINT CL; 
VTAB 23: HTAB 1: CALL - 868: HTAB 11: PRI 
NT "E* GIUSTO COSI* ? ";: GOSUB 3210 
IF X = 78 THEN 910 

CCS = "": FOR SP = 1 TO CL - 1:CC$ = CCS + 
" ": NEXT : IF CL = 1 THEN CCS = "" 

1$ = CHRS (9) + "80N": REM N. MASSSIMO C 
ARATTERI PER RIGA 

TI $ = CHRS (27) + CHRS (69): REM STAMPA 

NERETTO ATTIVATA (ON) 

C1S = CHRS (27) + CHRS (70): REM STAMPA 

NERETTO DISATTIVATA (OFF) 

T2S = CHRS (14): REM STAMPA ESPANSO ON 
C2S = CHRS (20): REM 

T3S = CHRS (15): REM 

N 

C3S = CHRS (18): REM 

FF 

IF P(1) THEN GIS = T1S 
IF NOT P(l) THEN GIS = "" 

IF P (2) THEN G2S = T2S 
IF NOT P(2) THEN G2S = "" 

IF P(3) THEN G3S = T3S 
IF NOT P(3) THEN G3S = "" 

GGS = 1$ + GIS + G2S + G3S 
G$ = C1S + C2S + C3S 


STAMPA ESPANSO OFF 
STAMPA CONDENSATO 0 


STAMPA CONDENSATO 0 


1220 VTAB 18: HTAB 1: CALL - 958: PRINT 
1230 PRINT " ACCENDI LA ";: INVERSE : P 

RINT "STAMPANTE";: NORMAL : PRINT PRI 

NT " LA STAMPA INIZIERÀ* ALLA COLONNA "; 
CL; " . " 

1240 PRINT " <BARRA SPAZIO> INIZIO STAMPA": PRI 
NT " <ESC> INTERROMPE E TORNA AL MENU" 

1250 GOSUB 3190: IF X < >32 AND X < >27 THE 

N 1250 

1260 IF X = 27 THEN RETURN 

1270 FOR II = 10 TO 1 STEP - 1 

1280 IF L$(II) < > "" THEN C = II: GOTO 1300 

1290 NEXT II 

1300 PRINT D$" P R# 1": FOR I = 1 TO C: PRINT GGS 
+ CCS + L$( I ) + G$ : NEXT : PRINT D$"PR# 0 
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VTAB 18: HTAB 1: CALL - 958: PRINT 
PRINT "<BARRA SPAZIO» POSIZIONA ALTRA ETIC 
HETTA"; : PRINT : PRINT "<RTN> CONTINUA" 

VTAB 20: GOSUB 3190: IF X < >32 AND X < 

> 13 THEN 1330 
IF X = 13 THEN 1370 

PRINT D$"PR# 1": PRINT : PRINT D$"PR# 0" 

GOTO 1330 

PRINT : VTAB 18: HTAB 1: CALL - 958 
VTAB 20: HTAB 1: PRINT "VUOI RISTAMPARE LA 
STESSA ETICHETTA ? "; : GOSUB 3210 
IF X = 78 THEN RETURN 
PRINT "S" 

VTAB 22: HTAB 5: PRINT "STESSE OPZIONI STA 
MPANTE ? ";: GOSUB 3210 
IF X = 78 THEN 910 
GOTO 1220 

PRINT "(S/";: INVERSE : PRINT "N";: NORMAL 
: PRINT ")";: RETURN 

PRINT "(";: INVERSE : PRINT "S";: NORMAL : 

PRINT "/N)";: RETURN 
REM ========================= 

REM VEDERE ETICHETTA CORRENTE 
REM ========================= 

IF L$(1) = "" THEN RETURN 

VTAB 10: GOSUB 3230: VTAB 23: PRINT "PREMI 
UN TASTO PER IL MENU PRINCIPALE";: GOSUB 
3190 
RETURN 

REM CARICARE VECCHIA ETICHETTA 
GOSUB 2600: GOSUB 2400 

VTAB 23: HTAB 4: PRINT "VUOI CARICARE QUES 

TA ETICHETTA ? ";: GOSUB 3210 

IF X = 78 THEN RETURN 

IF L$(l) < > "" THEN GOSUB 2860 

FOR II = 1 TO 10:L$(II) = K$(Q,II - 1): NE 

XT 

RETURN (Continua) 
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qualsiasi delle etichette che avete 
creato. Dato che l'intera lista delle e- 
tichette viene in realtà letta nel file 
su disco una volta sola e poi imma¬ 
gazzinata in memoria, non ci sarà 
perdita di tempo per l'accesso al di¬ 
sco quando in seguito sceglierete que¬ 
sta opzione. Analogamente quando 
sceglierete l’opzione di eliminazione 
di vecchie etichette 1'eliminazione av¬ 
verrà in memoria e non richiederà al¬ 
cun accesso al disco. 

Sia per l'opzione di caricamento 
sia per quella di eliminazione la lista 
delle vecchie etichette viene visualiz¬ 
zata con numeri, e le etichette vengo¬ 
no selezionate battendo il numero 
dell'etichetta prescelta. Dato che tut¬ 
ti i cambiamenti che apportate alle 
vostre etichette, come salvare ed eli¬ 
minare, vengono fatti in memoria, è 
estremamente importante che usciate 


dal programma mediante l'opzione 
Salvare file e smettere. Questo assi¬ 
curerà che le modifiche fatte nei vo¬ 
stri dati siano salvate per la prossi¬ 
ma seduta con Postmaster. 

Impostazione 
della stampante 

Per usare Postmaster introducete il 
programma visibile nel listato 1 e 
salvatelo su disco con il comando: 


S AVE POSTMASTER 


Per un aiuto nelFintroduzione dei 
listati di Applicando , consultate la 
rubrica Per chi comincia in questo 
numero della rivista. 

Se avete una stampante Epson 
MX-80conschedad'interfacciaparal- 
lela standard potete eseguire il pro¬ 


gramma come è pubblicato. 

Per utilizzare con successo su altre 
stampanti i vari stili di stampa dove¬ 
te introdurre il programma visibile 
nel listato 2 e salvarlo con il co¬ 
mando: 


S AVE INSTALL 


Quando lo eseguite. Instali vi invi¬ 
ta a fornire i codici di controllo spe¬ 
cifici della vostra stampante, e poi 
modifica in conformità Postmaster. 
Per evitare inconvenienti dovreste co¬ 
piare sia Instali sia Postmaster su di 
un secondo disco, ed eseguire Instali 
sulla copia e non sulforiginale. 

Se eseguite Instali in ProDOS, eli¬ 
minate la linea 520 e ricordatevi di e- 
liminare il file INSTALL.EXEC dal 
catalog quando il programma ha 
completato la sua esecuzione. 


1620 REM SALVARE ETICHETTA CORRENTE 
1630 REM ========================== 

1640 IF L${1) = "" THEN RETURN 
1650 VTAB 10: GOSUB 3230 

1660 VTAB 23: HTAB 5: PRINT "VUOI SALVARE QUEST 
A ETICHETTA ? GOSUB 3210 

1670 IF X = 78 THEN RETURN 
1680 GOSUB 2600 
1690 CH = 1 

1700 N = N + 1: IF N > 99 THEN 1730 
1710 FOR I = 1 TO 10 :K$ (N,I - 1) = L$(I): NEXT 
: HOME : VTAB 12: HTAB 7: PRINT "ETICHETTA 
CORRENTE SALVATA": VTAB' 23: PRINT "PREMI 
UN TASTO PER IL MENU PRINCIPALE";: GOSUB 3 
190 


1720 

1730 

RETURN 
VTAB 10: 

HTAB 1: 

CALL - 

958: VTAB 15: 

HTA 

1740 

B 10 
INVERSE 

: PRINT 

"IL FILE 

E' COMPLETO " 

CHR 


$ (7) CHR$ (7): NORMAL : VTAB 23: PRINT "P 
REMI UN TASTO PER IL MENU PRINCIPALE";: GO 
SUB 3190 
1750 RETURN 

1760 REM =========================== 

1770 REM ELIMINARE VECCHIA ETICHETTA 
1780 REM =========================== 

1790 GOSUB 2600: GOSUB 2400 

1800 VTAB 23: HTAB 3: PRINT "VUOI ELIMINARE QUE 
STA ETICHETTA ? ";: GOSUB 3210 
1810 IF X = 78 THEN RETURN 

1820 FOR JJ = Q TO N: FOR II = 0 TO 9:K$(JJ,II) 
= K$(JJ + 1,11): NEXT II: NEXT JJ 
1830 N = N - 1 :CH = 1 
1840 RETURN 

1850 REM ======================== 

1860 REM VEDERE VECCHIE ETICHETTE 
1870 REM ======================== 

1880 GOSUB 2600: GOSUB 2400 
1890 RETURN 

1900 REM ================== 

1910 REM ORDINARE ETICHETTE 
1920 REM ================== 

1930 VTAB 15: HTAB 1: PRINT "L'ORDINAMENTO RICH 
IEDERA' QUALCHE TEMPO" 

1940 PRINT : HTAB 12: PRINT "VUOI PROCEDERE ? " 
: GOSUB 3210 

1950 IF X = 78 THEN RETURN 

1960 GOSUB 2600: IF N = - 1 THEN RETURN 

1970 CH = 1 

1980 VTAB 8: HTAB 14: CALL - 958: PRINT "STO O 

RDINANDO." 

1990 VTAB 10: POKE 34,10 
2000 J = - 1 

2010 J = J + 1: IF J = N THEN HTAB 5: PRINT K$ 
(J,0): GOTO 2060 
2020 K = J 


2030 K = K + 1 : IF K > N THEN HTAB 5: PRINT K$ 
(J, 0): GOTO 2010 

2040 IF LEFTS (K$(J,0),5) > LEFTS (K$(K,0),5) 
THEN FOR II = 0 TO 9:TEMP$ = K$(J,II):K$ 
(J,II) = K$(K,II):K$(K,II) = TEMPS: NEXT 
2050 GOTO 2030 

2060 POKE 34,0: VTAB 8: HTAB 1: CALL - 958 
2070 VTAB 15: HTAB 11: PRINT J + 1;" ETICHETTE 
ORDINATE" 

2080 VTAB 23: PRINT "PREMI UN TASTO PER IL MENU 
PRINCIPALE";: GOSUB 3190 
2090 RETURN 
2100 REM ===== 

2110 REM FINE 
2120 REM ==== 

2130 IF NOT CH THEN 2310 
2140 ONERR GOTO 2320 

2150 VTAB 15: HTAB 12: PRINT "ATTENDERE PREGO.. 

2160 PRÌNT D$"OPEN LABEL.DATA" 

2170 PRINT D$"CLOSE" 

2180 PRINT D$"DELETE LABEL.DATA" 

2190 PRINT D$"OPEN LABEL.DATA" 

2200 PRINT D$"WRITE LABEL.DATA" 

2210 PRINT N: IF N = - 1 THEN 2300 

2220 FOR J = 0 TO N 

2230 FOR I = 0 TO 9 

2240 FOR S = 1 TO LEN (K$(J,I)) 

2250 PRINT MID$ (K$ ( J, I) , S, 1 ) ; 

2260 NEXT S 

2270 PRINT CHR$ (92) 

2280 NEXT I 

2290 NEXT J 

2300 PRINT D$"CLOSE LABEL.DATA" 

2310 POKE 216,0: HOME : GOSUB 410: PRINT : PRIN 
T : END 

2320 CALL - 3288: POKE 216,0: VTAB 15: HTAB 12 
2330 PRINT CHR$ (7)" *** ERRORE *** " CHR$ ( 
7): PRINT : PRINT 

2340 PRINT "CONTROLLA IL DISCO E PREMI <RETURN> 
PER": PRINT "PER PROVARE DI NUOVO." 

2350 GET W$: PRINT 

2360 VTAB 15: HTAB 1: CALL - 958: GOTO 2140 
2370 REM ====================== 

2380 REM VISUALIZZARE ETICHETTE 
2390 REM ====================== 

2400 R = - 1 

2410 VTAB 10: CALL - 958: IF R = N THEN POP : 
RETURN 

2420 R = R + 1: HTAB 5: PRINT K$(R,0): IF R < N 

AND VAL ( RIGHTS ( STR$ (R),1)) < 9 THEN 

2420 

2430 IF SE = 7 THEN 2450 

2440 FOR S = 0 TO VAL ( RIGHTS ( STR$ (R),1)): 

VTAB S + 10: HTAB 1: PRINT "<"S">";: NEXT 
2450 VTAB 23: HTAB 1 

2460 IF SE = 4 THEN PRINT "<S> MENU <N.> CAR 
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Postmaster è strutturato in modo 
tale che ogni opzione è contenuta al- 
Tintemo di una subroutine. I paragra¬ 
fi qui sotto evidenziano alcune delle 
routine più interessanti. Nella tavo¬ 
la 1 si vede una lista delle variabili 
impiegate. 

• Inizializzazione principale (linee 
220-370), routine di housekeeping 
necessaria in ogni programma. Predi¬ 
spone alcune variabili, dimensiona 
le matrici e crea le stringhe utilizza¬ 
te dalla routine Menù principale. 

• Titolo principale (linee 410-460) 
non è altro che la stampa sullo scher¬ 
mo, in caratteri inverse, del nome 
del programma. 

• Menù principale (linee 500-660) 
predispone il menù sul quale potrete 
scegliere una delle opzioni del pro¬ 
gramma. Questa routine usa un selet¬ 
tore di menù che mette automatica¬ 


mente ogni voce del menù nel mez¬ 
zo dello schermo. Il segreto di que¬ 
sta operazione sta soprattutto nella 
linea 660. 

• Creare nuova etichetta (linee 700- 
820) è la routine che userete per pri¬ 
ma quando comincerete a usare Post¬ 
master. Per rendere possibile l’intro- 
duzione di una virgola (,) nelle eti¬ 
chette viene utilizzata un’apposita 
routine d’immissione dei caratteri. 

• Stampare etichetta corrente (linee 
860-1450) è la routine di uscita delle 
etichette sulla stampante. Come si è 
detto, Postmaster è stato predisposto 
per il funzionamento con una stam¬ 
pante Epson MX-80 e una scheda 
d’interfaccia parallela standard nello 
slot 1. Se avete questa attrezzatura 
potete far girare Postmaster senza al¬ 
cuna modifica. Se avete una stam¬ 
pante diversa, o anche solo un’inter¬ 


faccia diversa, occorre modificare le 
linee 1070-1130. Questo si può fa¬ 
re usando il programma Instali de¬ 
scritto prima. Se non volete ricorre¬ 
re al programma di installazione sie¬ 
te liberi di modificare manualmente 
le linee 1070-1130. 

• Vedere etichetta corrente (linee 
1490-1510) visualizza sullo scher¬ 
mo la corrente etichetta. 

• Caricare vecchia etichetta (linee 
1550-1600) carica un'etichetta salva¬ 
ta in precedenza. Adesso questa di¬ 
venta l'etichetta corrente. 

• Salvare etichetta corrente (linee 
1640-1750) salva l'etichetta corrente 
in una matrice in memoria. 

• Eliminare vecchia etichetta (li¬ 
nee 1790-1840) rimuove in perma¬ 
nenza dalla m atrice un’etichetta prece¬ 
dentemente salvata. 

• Vedere vecchie etichette (linee 


ICA <RTN> CONTINUA"; 

2470 IF SE = 6 THEN PRINT "<S> MENU <N.> ELI 
MINA <RTN> CONTINUA"; 

2480 IF SE = 7 THEN PRINT "<S> MENU 
<RTN> CONTINUA"; 

2490 GOSUB 3190 

2500 IF X - 83 THEN POP : RETURN 
2510 IF X = 13 THEN 2410 

2520 IF X < 48 OR X > 57 OR SE = 7 THEN 2490 

2530 Q = 10 * ( VAL ( LEFTS ( STRS (R),1))) + X 

- 48: IF R < 10 THEN Q = X - 48 
2540 VTAB 10: HTAB 1: CALL - 958 

2550 FOR II = 0 TO 9: HTAB 5: PRINT K$(Q,II): N 

EXT 

2560 RETURN 

2570 REM ================= 

2580 REM LEGGERE DAL DISCO 
2590 REM ================= 

2600 IF K$(0,0) < > "" OR N = - 1 THEN RETUR 

N 

2610 ONERR GOTO 2770 

2620 VTAB 10: HTAB 1: CALL - 958: VTAB 15: HTA 
B 12: PRINT "ATTENDERE PREGO..." 

2630 PRINT D$"OPEN LABEL.DATA" 

2640 PRINT D$"READ LABEL.DATA" 

2650 INPUT N: IF N = - 1 THEN 2740 

2660 FOR J = 0 TO N 
2670 FOR I = 0 TO 9 
2680 A$ = "" 

2690 GET B$: IF ASC (B$) < 32 THEN 2690 

2700 IF B$ < > CHR$ (92) THEN AS = AS + B$: G 

OTO 2690 

2710 K$(J,I) = AS 
2720 NEXT I 
2730 NEXT J 

2740 PRINT : PRINT D$"CLOSE LABEL.DATA" 

2750 ONERR GOTO 150 
2760 RETURN 

2770 CALL - 3288: PRINT : PRINT D$"CLOSE" 

2780 POKE 216,0: VTAB 15: HTAB 12 
2790 PRINT CHRS (7)" *** ERRORE *** " CHRS ( 
7): PRINT : PRINT 

2800 PRINT "CONTROLLA IL DISCO E PREMI <RETURN> 
PER": PRINT "PROVARE DI NUOVO." 

2810 GET WS: PRINT 

2820 VTAB 15: HTAB 1: CALL - 958: GOTO 2610 
2830 REM =========== 

2840 REM ATTENZIONE! 

2850 REM =========== 

2860 VTAB 10: HTAB 1: CALL - 958: VTAB 13 
2870 HTAB 10: INVERSE : PRINT " *** ATTENZIONE 
*** ": NORMAL : PRINT : PRINT 
2880 HTAB 10: PRINT "L'ETICHETTA CORRENTE": HTA 
B 10: PRINT "VERRÀ 1 SOSTITUITA": PRINT 
2890 HTAB 13: PRINT "VUOI CONTINUARE ? ";: GOSU 
B 3210 

2900 IF X = 78 THEN POP : RETURN 


2910 FOR II = 1 TO 10 :L$(11) = "": NEXT 
2920 RETURN 

2930 REM ============== 

2940 REM PRIMO IMPIEGO? 

2950 REM ============== 

2960 ONERR GOTO 3020 

2970 PRINT : PRINT D$"OPEN LABEL.DATA" 

2980 PRINT D$"READ LABEL.DATA" 

2990 INPUT N 

3000 PRINT D$"CLOSE LABEL.DATA" 

3010 POKE 216,0: RETURN 

3020 PRINT D$"CLOSE": IF PEEK (222) < > 5 THE 

N 3070 

3030 PRINT D$"OPEN LABEL.DATA": PRINT D$"WRITE 
LABEL.DATA" 

3040 N = - 1: PRINT N 

3050 PRINT D$"CLOSE LABEL.DATA" 

3060 POKE 216,0: PRINT CHRS (7): PRINT CHRS ( 
7): GOTO 130 

3070 PRINT "E 1 ACCADUTO L'ERRORE N. "; PEEK (22 
2): PRINT "MENTRE CERCAVI DI INIZIALI Z ZARE 
": PRINT "IL FILE DATI": PRINT : PRINT "RI 
MEDIA AL PROBLEMA E PREMI": PRINT "UN TAST 
O PER RICOMINCIARE": GET K$: RUN 
3080 REM ==================== 

3090 REM IMMISSIONE CARATTERI 
3100 REM ==================== 

3110 AS = "" 

3120 GET B$ 

3130 IF B$ = CHRS (13) THEN CALL - 868: RETU 
RN 

3140 IF B$ < > CHRS (8) AND LEN (AS) - 32 TH 
EN PRINT CHRS (7);: GOTO 3120 
3150 IF B$ < > CHRS (8) THEN AS = AS + B$: PR 
INT B$; : GOTO 3120 
3160 IF LEN (AS) = 0 THEN 3120 

3170 PRINT B$"."B$;: IF LEN (AS) = 1 THEN AS - 
GOTO 3120 

3180 AS = LEFTS (AS, LEN (AS) - 1): GOTO 3120 
3190 X = PEEK ( - 16384): IF X < 128 THEN 3190 
3200 POKE - 16368,0:X = X - 128: RETURN 

3210 X = PEEK ( - 16384): IF X < 128 OR (X < 

> 211 AND X < > 206) THEN 3210 

3220 POKE - 16368,0:X = X - 128: RETURN 

3230 FOR I = 1 TO 10: HTAB 5: PRINT LS (I) : NEXT 

: RETURN 
3240 PRINT " 

";: RETURN : REM 40 SPAZI FRA LE V 
IRGOLETTE _ 

Checksum del listato 1 

APPLE CHECKER 3.0 
NOME FILE: POSTMASTER 
TIPO: A 

LUNGHEZZA: 1C24 
CHECKSUM : 25 
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1880-1890) fa l’elenco di tutte le eti¬ 
chette della matrice. 

• Ordinare etichette (linee 1930- 
2090) ordina tutte le etichette salva¬ 


te in base alla prima riga d’immissio¬ 
ne, guardando solo i primi cinque ca¬ 
ratteri di questa riga. Questa routine 
di ordinamento è la più semplice di 


Listato 2. Instali 

DOS 3.3 

10 REM — —_ _— 

ProDOS 

20 REM INSTALL 

30 REM DI FINN ERIK LOVDAL 

40 REM COPYRIGHT (C) 1986 

Apple Ile 

Apple Ile 


50 REM BY APPLICANDO & 

60 REM MICROSPARC, INC. 


70 REM - 

80 TEXT : POKE 34,0: POKE 216,0: HOME 

90 D$ = CHR$ (4) 

100 HTAB 15: INVERSE : PRINT " INSTALL ": NORMAL : POKE 34,2: VTA 
B 4 

110 PRINT "QUESTO PROGRAMMA MODIFICA 1 POSTMASTER'": PRINT "IN MOD 
O CHE POSSA FUNZIONARE CON LA": PRINT "TUA STAMPANTE." 

120 PRINT : PRINT "LA STAMPANTE DEVE ESSERE IN GRADO DI": PRINT " 
STAMPARE IN NERETTO, CONDENSATO ED": PRINT "ESPANSO." 

130 PRINT : PRINT "PER PROCEDERE DOVRAI AVERE UNA COPIA DI": PRIN 
T "'INSTALL' E DI 'POSTMASTER' SU UN ": PRINT "DISCHETTO NON 
PROTETTO IN SCRITTURA, E": PRINT "IL MANUALE DELLA TUA STAMPA 
NTE. " 

140 VTAB 21: PRINT " (C) 1986 BY APPLICANDO & MICROSPARC ": VTAB 

23: PRINT " PREMI UN TASTO QUANDO SEI PRONTO GET W$: H 

OME 

150 PRINT " (L'ESEMPIO IN BASSO E' PER ": PRINT " SCHE 

DA PARALLELA STANDARD,'*: PRINT " STAMPANTE EPSON MX-80" 

: POKE 34,10 

160 HOME : PRINT "SCRIVI IL CODICE PER IL NUMERO MASSIMO": PRINT 
"DEI CARATTERI PER RIGA:": VTAB 23: PRINT "CHR$(9)+" CHR$ (34 
)80"N" CHR$ (34): VTAB 14: INPUT "";I$ 

170 HOME : PRINT "SCRIVI IL CODICE PER ATTIVARE": PRINT "IL NERET 
TO:": VTAB 23: PRINT "CHR$(27)+ CHRS(69)": VTAB 14: INPUT "";T 


180 


190 

200 


210 

220 


230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 


350 

360 

370 


380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 


1 $ 

PRINT : PRINT : PRINT "SCRIVI IL CODICE PER DISATTIVARE": PRI 
NT "IL NERETTO:": VTAB 23: PRINT "CHRS(27)+CHRS(70)": VTAB 20 
: INPUT "";C1$ 

HOME : PRINT "SCRIVI IL CODICE PER ATTIVARE": PRINT "L'ESPANS 
O:": VTAB 23: PRINT "CHRS(14)": VTAB 14: INPUT "";T2$ 

PRINT : PRINT : PRINT "SCRIVI IL CODICE PER DISATTIVARE": PRI 
NT "L'ESPANSO:": VTAB 23: PRINT "CHRS(20)": VTAB 20: INPUT "" 
; C2S 

HOME : PRINT "SCRIVI IL CODICE PER ATTIVARE": PRINT "IL CONDE 
NSATO:": VTAB 23: PRINT "CHRS(15)": VTAB 14: INPUT "";T3$ 
PRINT : PRINT : PRINT "SCRIVI IL CODICE PER DISATTIVARE": PRI 


NT "IL CONDENSATO:": VTAB 23: PRINT "CHRS(18)" 
T ""rC3$ 

POKE 34,2: HOME 

VTAB 5: PRINT " CONTROLLA BENE L'INPUT": 

: PRINT 


VTAB 20: INPU 


PRINT : PRINT 


: HTAB 20: PRINT 1$ 
HTAB 20: PRINT T1S 


HTAB 20: 
HTAB 20: 
HTAB 20: 
HTAB 20: 
HTAB 20: 


PRINT C1S: PRINT 
PRINT T2S 
PRINT C2S: PRINT 
PRINT T3S 
PRINT C3S 


PRINT "N.MASSIMO CAR.: 

PRINT "NERETTO ON:' 

PRINT " OFF:' 

PRINT "EPSANSO ON:" 

PRINT " OFF:" 

PRINT "CONDENSATO ON:" 

PRINT " OFF:' 

VTAB 23: HTAB 1: PRINT 
GET WS: IF WS < > "S" 

IF WS = "N" THEN RUN 

HOME : VTAB 8: PRINT "ASSICURATI CHE 'POSTMASTER' SIA SUL": 
RINT : PRINT "DISCHETTO NEL DRIVE CORRENTE.": PRINT : PRINT 
PRINT 

PRINT "PREMI UN TASTO PER COMINCIARE... 

POKE 34,20: VTAB 23 
FOR I = 1 TO 40 
IF MIDS (12$,1,3) 

LEFTS (12$,I - 1) 

): GOTO 390 
NEXT I 

PRINT D$"OPEN INSTALL.EXEC" 

PRINT D$"WRITE INSTALL.EXEC" 

PRINT "LOAD POSTMASTER" 

I$=";1$ 

"1080 Tl$=";T1$ 

"1090 C1$=";C1$ 

"1100 T2$=";T2$ 

"1110 C2$=";C2$ 


"SEI SICURO CHE SIA GIUSTO? (S/N) 
AND WS < > "N" THEN 320 


GET WS: PRINT 


CHRS (34) 


"X" 


"CCS" + RIGHTS 


+ CHRS (34) THEN 12$ = 
(12$, LEN (12$) - I - 2 


PRINT "1070 
PRINT 
PRINT 
PRINT 
PRINT 


PRINT "1120 T3$=";T3$ 

PRINT "1130 C3$=";C3$ 

PRINT "SAVE POSTMASTER" 

PRINT "POKE 34,0" 

PRINT "HOME" 

PRINT "DELETE INSTALL.EXEC" 
PRINT D$"CLOSE INSTALL.EXEC" 
PRINT D$"EXEC INSTALL.EXEC" 


Checksum del listato 2 

APPLE CHECKER 3.0 
NOME FILE: INSTALL 
TIPO: A 

LUNGHEZZA: 07C2 
CHECKSUM : 3A 


tutte, e di conseguenza è piuttosto 
lenta. 

• Salvare file e smettere (linee 
2130-2360) scrive in un file su di¬ 
sco tutte le etichette della matrice. 
Se non sono state aggiunte o elimi¬ 
nate etichette, o non è stata usata la 
routine di ordinamento, non c'è biso¬ 
gno di cambiare il file sul disco e il 
programma finisce. 

• Vedere etichette (linee 2400- 
2560) è la routine che formatta l’e¬ 
lenco delle etichette sullo schermo. 
Questa routine è usata dalle routine 
Caricare, Eliminare e Vedere vecchie 
etichette, e lista solo la prima riga 
di ogni etichetta. 

• Leggere dal disco (linee 2600- 
2820) viene richiamata quando oc¬ 
corre per leggere il file sul disco. 
Questo avviene una sola volta duran¬ 
te un'esecuzione, e soltanto se vole¬ 
te salvare una nuova etichetta o usa¬ 
re qualcuna delle vecchie. 

• Attenzione! (linee 2860-2920) vi 
avverte che qualunque cosa vi accin¬ 
giate a fare sostituirà l'etichetta cor¬ 
rente. 

• Primo impiego? (linee 2960- 
3070) controlla se sia la prima volta 
che avete eseguito Postmaster. In ca¬ 
so affermativo crea il file di testo 
sul disco. 

• Immissione caratteri (linee 3110- 
3220) è la routine di input che si a- 
dopera quando si introduce una nuo¬ 
va etichetta. 

Naturalmente è possibile apportare 
alcune modifiche al programma, a se¬ 
conda delle esigenze personali. 

Una in particolare può essere mol¬ 
to utile, e cioè la velocizzazione di 
lettura e scrittura, che sono un po’ 
lente, ma la soluzione è ancora da 
trovare: prendetela come una sfida. 

In generale, dato che Postmaster 
vi permette di immettere fino a 10 ri¬ 
ghe di qualsiasi tipo di informazio¬ 
ne, la sua versatilità non ha altri li¬ 
miti che quelli posti dalla vostra 
stessa immaginazione. 

Se vi stancate di sfornare indirizzi, 
potete sempre provare a usare il pro¬ 
gramma per fare etichette per i di¬ 
schetti, per i barattoli di conserva, 
per i raccoglitori di documenti del 
vostro archivio e via dicendo. 


/ \ 

Questo programma è disponibile 
su dischetto. L’elenco, i prezzi 
e le modalità d’ordine di questo 
e degli altri dischetti disponibili 
sono riportati nella rubrica 
Disk Service. 

N / 
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Eff 


A. casa tua, partendo dalle nozioni 
di base e mettendo ogni volta in pratica 
ciò che impari, diventerai un esperto in 
micro-calcolatori. 

Non solo, ma con i materiali del Corsoi 
costruirai interessanti apparecchiature 
che resteranno di tua proprietà e 
ti serviranno sempre: il MINILAJ8 
(laboratorio di elettronica 
sperimentale), il TESTER (analizzatore 
universale), il DIGILAB (laboratorio 
digitale da tavolo), l’EPROM 
PROGRAMMER (programmatore di 
memorie EPROM) e l’ELETTRA COMPUTER 
SYSTEM (microcalcolatore basato sullo Z80). 
Chiedi oggi stesso informazioni gratis e senza 
impegno su questo 
nuovo Corso o 
sugli altri 9 Corsi 
di elettronica 
preparati per 
te da Scuola 
Radio 
Elettra. 


I microcomputer richiedono tecnici capaci di 
assicurarne sempre il perfetto funzionamento. Sapere 
com’è fatto un microcomputer, conoscerne tutti i segreti, 
è il punto di partenza per un'attività moderna, specialistica 
e interessante anche per le possibilità di guadagno. 

Ecco perché Scuola Radio Elettra 
ti propone il CORSO-NOVITÀ’ 
, ELETTRONICA DIGITALE 
3 E MICROCOMPUTER 

in 44 gruppi di lezioni e 17 serie 
” di materiali con oltre 870 
componenti e accessori. 

Compila e spedisci questo tagliando. 




Scuola Radio Elettra 

Via Stellone 5-10126 Torino 


Compila, ritaglia, e spedisci solo per informazioni a: X 96 

SCUOLA RADIO ELETTRA - Via Stellone 5 -10126 Torino 

Vi prego di farmi avere, gratis e senza impegno, il materiale informativo relativo al Corso di: 


□ Tecnica elettronica 
sperimentale (NOVITÀ’) 

□ Elettronica digitale (NOVITÀ’) 

□ Microcomputer (NOVITÀ’) 

□ Elettronica Radio TV 

□ Elettronica industriale 


□ Televisione b/n 

□ Televisione a colori 

□ Amplificazione stereo 
B Alta fedeltà 

□ Strumenti di misura 


(Indicare con una crocetta la casella che interessa) 


COGNOME 

NOME _ 

VIA _J_ 

LOCALITÀ’ 

CAP _[_ 

ETÀ _|_ 
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One - liners 


La pubblicazione dei primi cento 
programmi su una linea sola ha avu¬ 
to un grande successo: moltissime 
le richieste del dischetto che li con¬ 
tiene, moltissimi gli invii di nuovi 
one-liners creati dai lettori. Insom- 
ma, un peccato che siano finiti. 

Inizia dunque da questo numero u- 
na nuova serie di cento programmi, 
tutti spediti dai lettori, che ben pre¬ 
sto saranno disponibili su dischetto. 
Agli autori dei programmi pubblica¬ 
ti verrà inviato il dischetto richiesto. 

Giorgio Di Falco, Roma, ha crea¬ 
to un programma che rivela il nu¬ 
mero dei settori ancori liberi. Carica¬ 
telo in memoria con LO AD, inserite 
nel drive il dischetto da esaminare e 
date il RUN. Il gioco è fatto: sul 
monitor verrà indicato lo spazio libe¬ 
ro del dischetto sotto analisi. 


Listato 101 

10 DATA 32,247,175,169,0,133,6, 
133,7,160,195,185,187,179,16 
2,7,10,144,6,230,6,208,2,230 
,7,202,16,244,136,192,56,176 
,234,96: FOR I = 768 TO 801: 

READ A: POKE I,A: NEXT: CALL 
768: PRINT PEEK (6) + 256 * 
PEEK (7) 


Eccovi un piacevole disegno in 
grafica ad alta risoluzione, ideato da 
Stefano Ruggeri di Pesaro. 


Listato 102 


5 TEXT : HOME : HGR 

: FOR 1=1 

TO 6: HCOLOR= I: 

FOR T = 0 TO 

24.6 STEP .2 :G = 

INT (50 * 

( SIN (T) 4 1)) 4- 

15 :H = INT 

(T * 10) 4 35 :K = 

INT (50 * 

( SIN (T) 4- 1)) 4- 

60 :J = INT 

(T * 10):HPLOT H, 

G TO J,K:NEXT 

T: FOR L = 1 TO 700: NEXT L: 

NEXT I: RUN 



Spedito da Cosimo Lattanzio, S. 
Ferdinando di Puglia (FG), questo o- 
ne-liner visualizza la frequenza delle 
lettere in una frase. Introdotta la fra¬ 
se, il computer elencherà il numero 
di comparse della stessa lettera nella 
frase. 


Listato 103 


2 HOME : INPUT "FRASE";P$: FOR 

I = 65 TO 

90:FOR J = 1 TO LEN 

(PS):B$ = 

MIDS (PS,J,l) : V = 

V 4 (B$ = 

CHRS (I)): NEXT : 

PRINT V, 

CHRS (I):V = 0:NEXT 


One liner grafico di Michele Filip¬ 
pini, Campalto (VE), che traccia po¬ 


ligoni regolari servendosi della legge 
secondo la quale ogni poligono rego¬ 
lare è inscrivibile in un cerchio. Al¬ 
l'inizio viene chiesta l'origine (X,Y) 
del poligono, il raggio del cerchio in 
cui deve essere inscritto il poligono 
e il numero dei lati. 


Listato 104 

10 INPUT "ORIGINE, RAGGIO, NUME 
RO DI LATI";XO,YO,R,N: HGR : 

HCOLOR= 3:PI = 3.14:A = 2 * 
PI / N: HPLOT XO + R,YO: FOR 
I = 1 TO N:X = XO + R * COS 
(A * I):Y = YO - R * SIN (A 
* I): HPLOT TO X,Y: NEXT I 
: GOTO 10 


Questo breve one liner di Mario 
Filetti, Firenze, trasforma il vostro 
Apple in un perfetto cronometro da 
uno a cento secondi con visualizza¬ 
zione degli stessi in reverse. 


Listato 105 

1 HOME : RT = 0: FOR R = 1 TO 40 
STEP 4 :N = 1: INVERSE : FOR 
I = 1 TO 40 STEP 4: VTAB 20: 
HTAB I:PRINT N:N = N + 1 :NEXT 
:NORMAL :FOR I = 1 TO 40 STEP 
4: FOR T = 1 TO 1056: NEXT : 
VTAB 20: HTAB I: PRINT " " 

: NEXT :RT = RT + 10: VTAB 2 
1: HTAB R: INVERSE : PRINT R 
T: NEXT : NORMAL 


Creato da Luigi Ghirardi di Geno¬ 
va, questo one liner carica in memo¬ 
ria una piccola routine in assembler 
a partire dalla locazione $306 che 
compie le seguenti operazioni: -TE- 
XT - HOME - POKE 33,33 se la lo¬ 
cazione 33 conteneva 40 e - POKE 
33,40 se la locazione 33 conteneva 
33. Con la pressione del solo tasto 
<&> potete mettervi nella condizio¬ 
ne di correggere i vostri programmi 
con la funzione ESC. Mandate in e- 
secuzione il programma con l’istru¬ 
zione BRUN, caricate quindi il pro¬ 
gram ma che dovete correggere, batte¬ 
te & e fate il LIST: il vostro pro¬ 
gramma verrà listato a 33 colonne. 
Battete ancora & e vedrete il listato 
nel modo normale. 


Listato 106 

10 POKE 1013,76:POKE 1014,6:POKE 
1015,3: RESTORE: FOR I = 1 TO 
3 0 : READ A :POKE 773 + I,A:NEXT 
: DATA 165,33,141,5,3,32,153 
,243,173,5, 3, 201,40,240,7,16 
9,40,133,33,76,88,252,32, 88, 
252,169,33,133,33,96 


Ecco un mezzo molto semplice 
per trasferire i file binari da un disco 
a un altro. Date il RUN al program¬ 
ma di Fabio Ameglio, Nizza Monfer¬ 
rato (AT), e seguite le istruzioni che 
si presenteranno sul monitor. 


Listato 107 

1 HOME : INPUT "NOME-FILE DA DU 
PLICARE";F$: PRINT "INSERIRE 
ORIGINALE": GET G$ : PRINT : 
PRINT CHRS (4);"BLOAD"; F$ : 

X = PEEK (43635) * 256 4 PEEK 

(43634):Y = PEEK (43617) * 
256 + PEEK (43616): PRINT " 
INSERIRE COPIA E PREMERE UN 
TASTO": GET G$: PRINT : PRINT 
CHRS (4) ,* "BSAVE" ; F$; " , A" ;X; 
",L";Y 


Se avete problemi neU’inserimen- 
to in memoria dei programmi in lin¬ 
guaggio macchina, questo one liner, 
inviato da Felice Rosso di Ragusa, 
fa al caso vostro. Facilita la copiatu¬ 
ra dei programmi in assembler senza 
che ci si debba preoccupare di spazia¬ 
re i dati uno dall'altro e di scrivere 
l'indirizzo di memoria a ogni RE¬ 
TURN. Dato il RUN, occorre intro¬ 
durre il numero della locazione di 
memoria di partenza del programma, 
in decimale. Vengono quindi presen¬ 
tati due apostrofi come delimitatori 
della zona nella quale scrivere, che 
contiene 238 caselle corrispondenti a 
119 byte. Inserite il vostro program¬ 
ma scrivendo i byte, uno per uno, 
in esadecimale senza spazio tra i due 
byte. Quando il cursore si trova sul 
secondo delimitatore, battete RE¬ 
TURN e il computer caricherà in me¬ 
moria il vostro programma. Se il 
programma è formato da meno di 
119 byte, battete RETURN al termi¬ 
ne deH'inserimento e un altro RE¬ 
TURN per uscire dal programma di 
inserimento. Se i dati da inserire so¬ 
no più di 119, al termine del primo 
inserimento battete la lettera C e 
continuate l’inserimento. 


Listato 108 

10 INPUT A: FOR T = 1 TO 0 STEP 
0: HOME :POKE 1703, 103: INPUT 

.;A$: FOR I = 1 TO LEN (A 

S) STEP 2 :H$ = MIDS (A$,1,2 
):H$ = RIGHTS ("0000" + H$, 
4) :S = 4096: FOR K = 1 TO 4 : 
Z = ASC ( MIDS (H$,K,1)):N = 
N + S * (Z - 48 - 7 * ( (Z - 

48) > 10)):S = S / 16: NEXT 
K: POKE A,N: A = A 4 l;N = 0: 
NEXT I: GET F$: IF F$ = "C" 
THEN NEXT 


80 
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Da Carlo Tarozzi di Bologna 
giunge un breve one-liner che simu¬ 
la il canto di un uccello. Modifican¬ 
do i parametri della variabile "S", 
inoltre, si ottengono effetti diversi. 


Listato 109 

5 FOR I =768 TO 793:READ B:POKE 
I,B: NEXT : FOR I = 1 TO 40: 
S = INT { RND (1) *60+20 
):POKE 773,S:CALL 768: NEXT 
: DATA 169,10,133,0,169,212, 
133,1,164,0,173,48,192,166,1 
,202,208,253,136,208,245,198 
,1,208,239,96 


E’ stato creato da Francesca Miche- 
lotti di Castellare di Pescia (PT) un 
breve one liner che produce effetti so¬ 
nori da videogame, che variano muo¬ 
vendo il joystick. 


Listato 110 

35 FOR 1=768 TO 785:READ A:POKE 
I,A : NEXT: FOR 1 = 1 TO 2 STEP 
0: POKE 773, PDL (1): CALL 7 
68: NEXT : DATA 169,128,133, 
9, 160,201,152,170,202,208, 2 5 
3,173,4 8, 192, 13 6, 208, 24 5, 96 


Questo one liner di Romeo Mauri¬ 
zio, Augusta (SR) disegna istogram¬ 
mi. Prima di dare il RUN occorre 
settare il colore con l'istruzione 
HCOLOR=3; rispondete quindi agli 
input con i dati che volete evidenzia¬ 
re. Per avere l’istogramma, risponde¬ 
te con un RETURN all'input. 


Listato 111 

1 DIM A$(90):FOR A=1 TO 90:PRINT 
A;: INPUT A$(A):N = A :A = 90 
* (A$(N) = "") + A: V = VAL 
(A$ (N) ) :M = V * (M < V) + M * 
(M = > V): NEXT : HGR : HPLOT 
5,0 TO 5,160: HPLOT 0,155 TO 
279,155:FOR A = 5 TO 150 STEP 
5: HPLOT 4,A: NEXT : FOR A = 

1 TO N:P = 4 + 3 * A: FOR L = 
P TO P + 1:HPLOT L,155 - VAL 
(A$(A))*150 / M TO L,155 :NEXT 
L, A 


Questo listato su una sola linea, 
ideato da Riccardo Focardi di 
Bologna, simula un gioco che per¬ 
mette di fare pratica con la posizione 
dei caratteri sulla tastiera. Dato il 
RUN, i caratteri scorreranno sul vi¬ 
deo, uno alla volta, in modo casua¬ 


le. Si deve schiacciare il tasto corri¬ 
spondente prima che il carattere rag¬ 
giunga la parte superiore dello scher¬ 
mo. Se ciò avviene, il gioco ha ter¬ 
mine e viene visualizzato il punteg¬ 
gio raggiunto. Durante l'esecuzione 
la velocità con la quale le lettere 
scorrono aumenta, facendo crescere 
la difficoltà. Cambiando l'istruzione 
L=INT(RND(1)*26)+193 in L=IN- 
T(RND(1)*95)+161 viene utilizzato 
l’intero set di caratteri invece delle 
sole lettere maiuscole. Cambiando il 
100 nell'istruzione FOR PA=1 TO 
100-VP in un numero più basso, au¬ 
menta la velocità iniziale. 


Listato 112 


1 P - P + 1:VP = VP + .5: 

VTAB X 

+ 1: HTAB H + 1: PRINT " 

:L = INT ( RND (1) * 

26) + 

193 :L$ = CHR$ (L):H = 

INT 

( RND(1)*39): VTAB 24 : 

HTAB 

H + 1: PRINT L$;: FOR 

X = 23 

TO 0 STEP - 1:T = PEEK (4 

9152):G = PEEK ((T > 

128) * 

49168) :C = (T = L) : ON 

C = 1 

GOTO 1: PRINT: FOR PA 

, =1 TO 

100 - VP: NEXT : NEXT 

: VTAB 

10: PRINT "PUNTI= "P - 

1 


■■■ 



MACSPACE 

prospettive 

d'avvenire 

CAD per disegni tridimensionali 
con MACINTOSH 

FACILE: con Mac Space ottenete disegni in 
tridimensione lavorando sulla sola vista in piano. 
POTENTE: automaticamente Mac Space 
visualizza oltre al vostro lavoro in piano, anche 
la vista laterale, quella frontale e l'assonometria. 
In qualsiasi momento é possibile visualizzare in 
prospettiva,da qualsiasi punto di vista, l'oggetto 
disegnato, con possibilità di zoom all’infinito. 
FLESSIBILE: Mac Space stampa direttamente 
su plotter oltre che su Laser e Image Writer. 

Distribuito da: 



Via Chiapponi,42-29100 PIACENZA 
tei. (0523) 20.626 

disponibile presso i migliori APPLE CENTER 















































































































































Scrivete qui tutti i problemi 

CHE IL VOSTRO PERSONAL COMPUTER DOVREBBE RISOLVERE. 




❖ Ms-Dos,® Xenix,® Unix® compatibile 




















Tutte le soluzioni le trovate qui. 


GESTIONE CARTELLE CLINICHE 

GESTIONE STUDI COMMERCIALISTI 

TIMELINE® 

GESTIONE SCUOLE 

GESTIONE AMBULATORI MEDICI 

CHARTSTAR® 

GESTIONE DISTRIBUTORI 

DI BEVANDE 

AUTOMA® 

DIETOLOGIA 

GESTIONE ALLEVAMENTI 

GESTIONE MERCATI 
ORTOFRUTTICOLI 

D BASE III® 

MICROSOFT® 

MULTI PLAN® 

CALCOLO STRUTTURALE 

OLITALK® 

GESTIONE STUDI OCULISTICI 

GESTIONE CAMPEGGI 

GESTIONE CANTIERI EDILI 

OLITERM® 

SUPERWINDOW® 

CALCOLI MATEMATICI 

PROGETTAZIONE ARREDAMENTI 

REVISIONE ANALISI PREZZI 

GESTIONE CONDOMINI 

MODELLI MATEMATICI 

LEGGE 373 

ISOLAMENTO TERMICO EDIFICI 

CAPITOLATO D’APPALTO 

EASY GRAPHICS® 

PROGRAMMI DIDATTICI 

GESTIONE AZIENDALE INTEGRATA 

COSTI DI CANTIERE 

GESTIONE STUDJ NOTARILI 

ANAGRAFE COMUNALE 

CONTABILITA’ GENERALE 

CONTABILITA’ CANTIERI 

MICROSOFT® 

MS-CHART 

ANAGRAFE ELETTORALE 

GESTIONE MAGAZZINO 

TECNICA DELLE FONDAZIONI 

FRAMEWORK® 

GESTIONE FINANZIARIA 

ENTI LOCALI 

EASY WRITER II® 

GESTIONE VENDITE 

GESTIONE VENDITE AL DETTAGLIO 

ANAGRAFE SCOLASTICA 

GESTIONE ORDINI 

WORDSTAR® 

SYMPHONY® 

EASY FILER® 

STATISTICHE 

MICROSOFT® 

MS-WORD 

SUPERCALC 3® 

GESTIONE NEGOZI OTTICI 

LOTUS 123® 

OLITEXT® 

GESTIONE VENDITE AL DETTAGLIO 
CON REGISTRATORI DI CASSA 

DELTA 4® 

GESTIONE VENDITE ALLINGROSSO 

EASY PLANNER® 

MICROSOFT® 

PROJECT 

GESTIONE BOUTIQUES 

RILEVAZIONI PRESENZE 

GESTIONE STUDI DENTISTICI 

AUTOCAD® - DISEGNO TECNICO 

MICROSOFT® 

R BASE 

DICHIARAZIONI REDDITI 

GESTIONE NEGOZI DI 
ABBIGLIAMENTO 

GESTIONE AGENTI DI 
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SOFTWARE OLIVETTI 

Un problema non è nient’altro che una soluzione non ancora trovata. Questo principio vale anche per i 
Personal Computer. Se volete che il vostro Personal, quale che sia la marca, dia risposte concrete ai vostri 
problemi, fatelo lavorare con il Software Olivetti. Olivetti ha selezionato e certificato il meglio dei più impor¬ 
tanti Produttori di software. In più ha prodotto direttamente un’altra serie di titoli di grande interesse. Fra tut¬ 
ti quésti c’è il software su misura per la vostra attività. Le Filiali Olivetti, i Concessionari e i Rivenditori Auto¬ 
rizzati sono a disposizione del vostro Personal per aiutarlo a trovare la soluzione non ancora trovata. 
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DENARO 


Ogni mese, all'arrivo dell'estratto conto, vi sorbite un noioso lavoro 
di controllo e spuntatura, blocchetto delle matrici alla mano. 
Molto meglio farlo fare al Macintosh. E se disponete di assegni 
a modulo continuo sarà sempre Mac a scriverli per voi. ” 


Un banchiere 
per il Macintosh 





































Gli assegni a modulo continuo esi¬ 
stono, in Italia, solo a uso e consu¬ 
mo dei grandi clienti delle banche: 
chi richiede, per esempio, diecimila 
assegni, può averli a misura di stam¬ 
pante. Invece non è dato alla piccola 
azienda, e tanto meno al privato, di 
accedere a questo servizio, che negli 
Stati Uniti è ampiamente diffuso. 

Colpa delle nostre banche? Colpa 
della poca affidabilità del correntista 
italiano? Dell’arretratezza tecnologi¬ 
ca di sicuro colpa non è, e MacBan- 
ker ne è una prova. Applicando fa la 
sua parte, nel gioco del progresso 
che vede protagonisti i suoi lettori, 
e propone agli utenti del Macintosh 
un programma innovativo, predispo¬ 
sto per la funzione di stampa degli 
assegni a modulo continuo, che 
vuol essere anche uno stimolo a 
chiedere a chiara voce un servizio a- 
deguato ai tempi. Con la speranza 
che le banche abbiano orecchio per 
intendere. 

MacBanker è un programma per 
Mac 512 che utilizza le normali ca¬ 
ratteristiche del Macintosh, come 
menù, pulsanti e campi di editing, 
per automatizzare il procedimento di 
scrittura e registrazione degli asse¬ 
gni, permettendovi di seguire con fa¬ 
cilità il saldo del conto. Per scrivere 
gli assegni MacBanker usa automati¬ 
camente la data corrente, tiene nota 
del numero dell’ultimo assegno scrit¬ 
to, e stampa perfino gli assegni su 
moduli continui prestampati. 

Due menù speciali vi permettono 
di definire fino a 18 assegni che scri¬ 
vete su base periodica e fino a 18 
promemoria ordinari. Quando avete 
definito queste voci basta un click 
sul mouse per introdurre le informa¬ 
zioni occorrenti per scrivere rapida¬ 
mente gli assegni. Ne risulta note¬ 
volmente semplificato il procedimen¬ 
to di scrittura degli assegni a scaden¬ 
za fissa mensile, come quelli dei ra¬ 
tei di un mutuo. 

Il display dei dati degli assegni mo¬ 
stra 18 voci alla volta e comprende 
tutte le informazioni relative a ogni 
assegno. Una barra di scorrimento 
rende semplice passare in rassegna i 
dati, e le opzioni Trova e Trova il 
prossimo vi permettono entrambe di 
individuare rapidamente specifici as¬ 
segni. Gli assegni possono essere or¬ 
dinati per nome, numero o data per 
la visualizzazione sullo schermo e la 
stampa di prospetti. 

Una volta che gli assegni sono sta¬ 
ti ordinati, le informazioni possono 
essere emesse su un prospetto stam¬ 


pato, secondo una gamma di criteri. 

Quando vi arriva l’estratto conto 
bancario, MacBanker rende molto fa¬ 
cile far collimare i vostri conteggi 
con quelli della banca. Vi basta un 
click per rettificare i dati degli asse¬ 
gni o per indicare che un assegno è 
stato incassato. In entrambi i casi i 
vostri saldi vengono aggiornati auto¬ 
maticamente. 

Come si usa 
il programma 

MacBanker è stato ideato tenendo 
presenti i principi dell’interfaccia u- 
tente del Macintosh, e quindi il suo 
impiego è abbastanza intuitivo per 
chi ha familiarità con MacWrite e 
MacPaint. Quando eseguite MacBan¬ 
ker il programma predispone la fine¬ 
stra di Esposizione (figura 1) con 
intestazioni per i numeri degli asse¬ 
gni, le date, i nomi, gli importi e lo 
stato di spunta. La barra di menù 
presenta sei opzioni: archivio, edi¬ 
ting, conto, esposizione, assegno e 
memo. 

Se usate MacBanker per la prima 
volta conviene cominciare impostan¬ 
do un saldo iniziale e introducendo 
assegni; entrambe queste opzioni fan¬ 
no parte del menù Conto. Tuttavia, 
come la maggior parte degli utenti, 
vorrete probabilmente cominciare 
soltanto scrivendo assegni. Per far 
questo abbassate il menù Conto e 
scegliete la prima voce. Introduci as¬ 
segno. Davanti alla finestra di Espo¬ 
sizione viene aperta una finestra per 
l’introduzione degli assegni, come si 


vede in figura 2. Cinque campi di 
editing vi permettono di introdurre il 
nome della città, il numero, il no¬ 
me, l'ammontare dell’assegno e infi¬ 
ne una nota per vostro promemoria. 

MacBanker tiene automaticamente 
nota del più recente numero d’asse¬ 
gno utilizzato e lo incrementa di u- 
no a ogni nuovo assegno. Nel vo¬ 
stro caso, dato che non avete ancora 
scritto alcun assegno, compare il nu¬ 
mero 1. 

Se state usando MacBanker con un 
conto corrente già avviato in prece¬ 
denza scegliete con il mouse il cam¬ 
po dei numeri e introducete il nume¬ 
ro del presente assegno. Questo di¬ 
venterà il nuovo punto di partenza 
per i numeri d'assegno. 

MacBanker mette automaticamen¬ 
te il cursore nel campo di editing del¬ 
la città, quando viene aperta la fine¬ 
stra d’introduzione degli assegni. Per 
spostarvi da un campo di editing a 
un altro potete usare il mouse o il ta¬ 
sto <Tab>. 

Dopo aver correttamente inserito 
il nome della persona o della ditta al 
cui ordine spiccate rassegno e l'im¬ 
porto, in cifre e in lettere, potete in¬ 
trodurre un promemoria nel campo 
dei memo. Poiché può darsi che gli 
assegni vengano annotati in base a 
questo campo, potete standardizzare, 
volendo, i vostri promemoria in mo¬ 
do che gli assegni siano divisi per ca¬ 
tegoria. 

Per esempio tutti i contributi esen¬ 
ti da tasse potrebbero usare la nota 
"Dono”, in modo che all'epoca della 
dichiarazione dei redditi sia facile e- 


* Archivio Edit Conto Esposizione Assegni Memo 


Num. 

Data 


E 1 esento 

Credito 

Debito 

Nota Spuntato §|i 

300 

5 Mag 

1986 

Rona1 do Regani 


150000 

HARD 

Sf 

o 


301 

5 Mag 

1986 

Giu1 io Proprio1ui 


200000 

DONO 

□ 



302 

7 Mag 

1986 

Carlo Uoi ti la 

SI 

250000 

UflRIE 

□ 



303 

7 Mag 

1986 

Nunzio Uobis 

250000 

GRUD10 

Sf 



304 

13 Giu 

1986 

Renata Minne11i 


808000 

MULT1 DE 

Sf 



305 

13 Giu 

1986 

Silvio Emittenza 


2500 

CINQ 

□ 



306 

13 Giu 

1986 

Renzo Arbore 


175000 

CLRR 

□ 



307 

15 Giu 

1986 

Lorenzo Astori 


120580 

PUFFO 

□ 



308 

13 Giu 

1986 

Giuse Tarlo 


7500 

REFUS 

□ 



309 

19 Lug 

1986 

Roberto Benigni 


250000 

ROCKS 

□ 



310 

19 Lug 

1986 

Lorenzo Rstori 


175000 

PUFFO 

Sf 



311 

22 Lug 

1986 

Bubba Loris 


650000 

SOFT 

□ 



312 

22 Lug 

1986 

Rena ta Minne11i 


275000 

MULT1 DE 

Sf 



313 

2 figo 

1986 

Elisabetta Regina 


150000 

HRRO 

□ 



314 

2 figo 

1986 

Pasquale Zambuto 


750000 

UARIE 

□ 



315 

2 figo 

1986 

Editronica srl 


350000 

SILLA 

Sf 



316 

2 figo 

1986 

Clark Kent 


950000 

SUPER 

sf 



317 

2 Rgo 

1986 

Ranx Kerox 


550000 

CRUNCH 

□ 

<> 


5B9S9B 










Figura 1. Finestra Esposizione. 
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' MacBanker by David A. Krathwo 
' Copyright 198 
' By Applicando & 

' MicroSPARC, Ine. 

' MS BASIC 2.0 o 2.1 (decimale) 

WINDOW CLOSE WINDOW(O) 

GOSUB Initialize 
GOSUB DrawReview 
GOSUB DrawBox 
GOSUB DisplayReview 
ON BREAK GOSUB BreakTrap 
BREAK ON 
GetDate 

GOSUB InitMenu 
FlushDialogEvents 
INITCURSOR 
TitleScreen 
ON MENU GOSUB MenuEvent: MENU ON 

Idle : 

EventType = DIALOG(O) 

IF EventType = 5 THEN MENU OFF: GOSUB Update:FIushDialogEven • 
ts: MENU ON 

Hit = MOUSE(0) 

IF Hit <>0 THEN MENU OFF: GOSUB MouseHit: MENU ON 
MX= MOUSE(1):MY = MOUSE(2) 

IF MX <434 AND MY>BarTop-15 THEN SETCURSOR(VARPTR (ChkCurs(1))) 
IF MX >434 AND MX<BarLeft AND MY>BarTop-15 THEN SETCURSOR(VA • 
RPTR(PostCurs(1))) 

IF MY<BarTop-15 OR MX > BarLeft THEN INITCURSOR 
MENU 'toglie evidenziamento alle voci dei menu selezi • 

onate 

GOTO Idle 

MouseHit: 

IF ShowFlag=True THEN GOSUB ShowSelect: ShowFlag=False 
HitXl=MOUSE(3): HitYl=MOUSE(4) 

IF HitXl < BarLeft THEN GOSUB DoChange ELSE GOSUB DoScroll 
WHILE MOUSE<0)<>0 : WEND 'cancella altri spostamenti del • 
mouse 

RETURN 

DoChange: 

IF HitYl<ScrollT THEN RETURN 'nell'intestazione 
HitRec = INT ( (HitYl-ScrollT)/Lineine)+TopRec 

IF HitRec > Noltems OR Noltems <1 THEN RETURN 'fuori campo 
j = Index(Hit Ree) 

IF HitXl <434 THEN MENU OFF: SETCURSOR(VARPTR(Wateh(1))): GO • 
SUB Editltem: RETURN 

IF HitXl >434 THEN GOSUB ChangePosted : RETURN 

ChangePosted: 

Changed = True 

IF Item$ ( j, 3)="Credito" THEN CreditF=l ELSE CreditF = -1 
GOSUB Ad j ustBal 

Item$(j,4) = STR$(VAL(Item$( j, 4))*-l) 

MOVETO 444,(HitRec-TopRec+1)*LineInc +ScrollT 

TEXTFONT 3: TEXTSIZE 12: TEXTFACE 1: TEXTMODE 2: PRINT CHR$( • 
195); 'segno 'visto' 

CALL MOVE (-12,2):TEXTMODE 1: TEXTFACE 0: PRINT CHR$(218); 

'quadratino 
Monaco9 

IF VAL(Item$(j,4))>=0 THEN PBalance!=PBalance!+CreditF*ABS(V • 
AL(Item$(j,4))) 

Baiance ! =Balance !+CreditF*ABS(VAL(Item$(j,4))) 

RETURN 

DoScroll: 

IF Noltems < MaxView OR HitYl< ScrollT THEN RETURN 

IF HitY1< Y+l 6 AND HitY1>Y THEN GOSUB Drag ELSE GOSUB Click 

RETURN 

MenuEverit: 

MENU OFF 

IF ShowFlag=True THEN GOSUB ShowSelect: ShowFlag=False 
Menuld = MENU(O) 

Itemld = MENU(1) 

IF Menuld>2 THEN SETCURSOR(VARPTR(Wateh(1))) 

IF FatMac THEN GET (0,0)-(490,300),Refresh 

ON Menuld GOSUB FileMenu, EditMenu,AcctMenu,ViewMenu,CheckMe • 
nu,MemoMenu 

MENU Menuld,0,1 'toglie evidenziamento alla barra dei • 

menu 

IF Menuld = 1 OR Menuld = 2 THEN MENU ON 
RETURN 

'Inizializazione - 

Initialize: 

OPTION BASE 1 


Alcune righe del listato sono 
state spezzate per esigenze di 
impaginazione: 
quando incontrate il simbolo • 
continuate a battere SENZA 
premere <return>. 


strarli. In alternativa il campo dei 
memo può essere lasciato vuoto. 

Quando avete completato l’introdu¬ 
zione delle informazioni nei cinque 
campi di editing usate il mouse per 
fare click sulla data appropriata e sui 
pulsanti Spuntato e Stampa. 

Quando lo eseguite per la prima 
volta MacBanker si procurerà la data 
dall’orologio interno del vostro Mac 
e la visualizzerà nei tre pulsanti che 
si trovano a destra del campo della 
città (figura 2). 

Se l'assegno che state scrivendo ri¬ 
chiede una data diversa fate click sui 
pulsanti per cambiare la data indica¬ 
ta. Facendo click sui pulsanti dei me¬ 
si e dei giorni si avanza lungo i me¬ 
si e il rispettivo numero massimo di 
giorni. Facendo click sul pulsante 
dell’anno si avanza lungo gli anni 
dal 1985 al 1999. Quando viene rag¬ 
giunto il valore massimo del mese, 
del giorno o dell’anno il ciclo toma 
al valore iniziale. Se tenete premuto 
il tasto <Option> mentre fate click 
sui pulsanti della data vi sposterete 
alfindietro attraverso il loop. 

Per contribuire a far collimare l'e¬ 
stratto conto della vostra banca con 
le vostre registrazioni MacBanker tie¬ 
ne nota di due saldi: il vostro saldo 
effettivo e il vostro saldo spuntato. 
Il saldo effettivo si basa sui versa¬ 
menti effettivamente fatti e sugli as¬ 
segni effettivamente staccati. Il sal¬ 
do registrato mostra solo le operazio¬ 
ni che la banca ha eseguito. Fate ri¬ 
corso al saldo spuntato per avere con¬ 
ferma del vostro estratto conto men¬ 
sile. Per tener nota di questi saldi, a 
ogni voce da voi introdotta viene as¬ 
segnato uno stato di spuntata o non 
spuntata. Quando create un assegno 
fate click sul pulsante Spuntato (sot¬ 
to il campo dell’importo) per indica¬ 
re se la banca ha eseguito l’opera¬ 
zione. 

Se usate assegni a modulo conti¬ 
nuo fate click sul pulsante Stampa 
situato sotto il campo delle note. Se 
viene selezionato questo pulsante, 
nome, numero, importo e data ven¬ 
gono inviati alla stampante non ap¬ 
pena fate click sul pulsante OK. 

Come descritto più avanti, si può 
specificare il formato dell’output di 
queste informazioni in modo che 
sia possibile mettere in posizione e- 
satta vari tipi di assegni. 

Quando avete introdotto tutte le in¬ 
formazioni relative a un assegno e 
siete sicuri che siano esatte, basta 
che facciate un click sul pulsante 
OK per accettarle. 











Città iMilano | {~Y9\ fGènl [ 1987] Llt. 1 25000Ò] 

N. | 3201 

Lire |DUECENTOCINQUANT AhlLA======== 1 

All’ordine |Librerio Internazionale | 

Nota |DQNO [ □ Spuntato 

□ Stampa (cancella) [ Ok ] 

©Applicando 

Figura 2. Finestra di introduzione degli assegni. 


d&acjBaufetr CHI (HHD fi^T] lh. | leooooól 

Credito 

Nota [STIPENDIO "fi □ Spuntato 

[Cancella] [ Ok ^ ] 


Figura 3. Finestra di introduzione dei dati Credito. 


Se viene selezionato il pulsante 
Stampa l'assegno viene inviato alla 
stampante, i dati vengono aggiunti 
al data base degli assegni e i saldi 
vengono aggiornati. Se vi siete di¬ 
menticati di introdurre un importo o 
un nome, MacBanker fa bip e ripor¬ 
ta il cursore al campo di editing che 
occorre modificare. Se decidete di 
non introdurre l'assegno fate click 
sul pulsante Cancella per tornare al¬ 
la finestra Esposizione. 

Per far posto alle sedute di paga¬ 
mento dei conti in cui vengono scrit¬ 
ti diversi assegni, MacBanker lascia 
aperta la finestra d'introduzione degli 
assegni dopo che è stato dato l’OK a 
un assegno. 

Il campo dei numeri viene incre¬ 
mentato e tutti gli altri campi vengo¬ 
no puliti in attesa del prossimo asse¬ 
gno. Anche qui facendo click su Can¬ 
cella si chiuderà questa finestra e si 
tornerà alla finestra Esposizione. 

Un perfetto 
data base 

Per avere un completo data base de¬ 
gli assegni dovete introdurre anche 
voci diverse dagli assegni, come ver¬ 
samenti, pagamenti d’interessi, spe¬ 
se di servizio e operazioni di sportel¬ 
lo automatico. Permettono l’introdu¬ 
zione di queste voci due elementi ag¬ 
giuntivi del menù Conto, Nuovo 
Credito e Nuovo Debito. Come si 
vede nella figura 3, la finestra d'in¬ 
troduzione dei dati per i debiti e i cre¬ 
diti è identica a quella di introduzio¬ 
ne degli assegni, con la differenza 
che manca di alcuni campi e non ha 
il pulsante Stampa. 

Invece del campo del nome è visua¬ 
lizzata la parola Credito o quella De¬ 
bito, a seconda della scelta fatta sul 
menù. Come nel caso dell’introduzio¬ 
ne dei dati degli assegni, usate il ta¬ 
sto <Tab> per spostarvi da un cam¬ 
po di editing a un altro, e fate click 
sul pulsante OK quando sono state 
introdotte le informazioni esatte. Per 


TEXTMODE 1 
DEFINT a-z 

'Lettura dati per il cursore a orolorio 
DIM Watch(34) 

FOR i = l TO 34:READ Wateh (i):NEXT i 
DATA 2016,2016,2016,2016,2064,4232,4232,4236 
DATA 5004,4104,4104,2064,2016,2016,2016,2016 
DATA 2016,2016,2016,2016,4080,8184,8184,8184 
DATA 8184,8184,8184,4080,2016,2016,2016,2016,8,8 
SETCURSOR VARPTR(Watch(1)) 

'Lettura dati per il cursore di controllo 
DIM PostCurs (34) 

FOR i = l TO 3 4 : READ PostCurs(i) :NEXT i 

DATA 0,0,56,112,96,192,192,7552,1920,768,768,0 

DATA 0,0,0,0,0,0,56,112,96,192,192,7552 

DATA 1920, 768, 768, 0, 0, 0, 0, 0, 7,7 

'Lettura dati per il cursore 'assegno' 

DIM ChkCurs(34) 

FOR i = l TO 34:READ ChkCurs (i):NEXT i 

DATA 0,0,0,-1,-32767,-32707,-32767,-16483,-32767,-32515,-327 • 
67,-1 

DATA 0,0,0,0,0,0,0,-1,-1,-1,-1,-1 
DATA -1,-1,-1,-1,0,0,0,0,7,7 

Maxltems =250: MaxChecks = 18: MaxMemos=18 

DIM ItemS(Maxltems,5) , Check$(MaxChecks,3), Index(Maxitems), • 
Memo$(MaxMemos) 

True = -1: False = 0: Changed = Fa 1 se :Sortcode = 6 
Dollar$="##########": N um$ = M #####" 

MinYear=l985 : MaxYear=1999: TopRec = 1 : SetTopForm$=CHR$(27)+ • 
CHR$ (118) :FormFeed$=CHR$(12) : SetLeftMargin$=CHR$(27)+"L000" 

TNum=0: TDate=9: TName=22: TCredit=40: TDebit=53: TMemo=66: 
TPost=73 'tabulazioni 

IF FRE(0) > 30000 THEN FatMac = True: DIM Refresh(9333) 

'Lettura dati mesi 
DIM Month$(12) 

DIM DaysInMonth(12) 

FOR i = 1 TO 12: READ Month$(i): READ DaysInMonth(i): NEXT i 
DATA "Gen",31,"Feb",29,"Mar",31,"Apr",30,"Mag",31,"Giu", 30 
DATA "Lug",31,"Ago",31,"Set",30,"Ott",31,"Nov",30,"Die", 31 

'Legge dati standard per la stampa degli assegni 
FOR j = 1 TO 5 
FOR i = 1 TO 3 

READ PosInfo(j,i) 

NEXT 

NEXT 

ChkTotalLi nes=21 

DATA 1,1,10,2,1,30,3,1,60,4,5,10,5,7,10 

'Parametri e disegno per la finestra di lavoro 
ScrollL=0: ScrollR=473: ScrollT=15: ScrollB=300 
BarTop = 30: BarBottom = 286: BarLeft =475 
MaxView = 18: Lineine = 15: TopRec =1 
RETURN 

'Menu Archivio - 

FileMenu: 

ON Itemld GOSUB FileNew,FileOpen,FileSave,FileSaveAs,FilePri • 
ntSet,FilePrint, FileQuit 

IF Itemld >2 THEN PutUpdate = True ELSE PutUpdate = False 
RETURN 

FileNew: 

IF Changed THEN GOSUB Confirm 
IF Changed AND NOT OK THEN RETURN 

LINE (ScrollL,Scroi1T+1)-(ScroiIR,Scroi1B),30,bf 'scroll • 
finestra 

(Continua) 
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Noltems=0: Sortcode=6: LastCheckNum!=0 : SBalance!=0: Balance • 
!=0 : PBalance!=0 :N$="" 

TopRec= 1: Y = 31: GOSUB EraseBox: GOSUB DrawBox 
FOR i = 1 TO MaxChecks 

Check$(i, 1)="": Check$(i,2)="": CheckS(i,3)" 

NEXT i 

FOR i = 1 TO MaxMemos 
Memo$ (i)="" 

NEXT i 

State = 0: GOSUB InitMenu: GetDate 
RETURN 


FileOpen: 

IF Changed THEN GOSUB Confirm 
IF Changed AND NOT OK THEN RETURN 
N$=FILES$(1,"BANCA") 

IF N$="" THEN RETURN 'Premuto CANCELLA 
SETCURSOR(VARPTR(Watch(1) ) ) 

MENU 4,Sortcode,l 'controlla dato d'ordinamento 

OPEN N$ FOR INPUT AS 1 

INPUT #1, Noltems 

INPUT #1, Sortcode 

INPUT #1, LastCheckNum! 

INPUT #1,SBalance! 

INPUT #1,Balance! 

INPUT #1,PBalance! 

FOR i = 1 TO MaxChecks 

LINE INPUT #1, CheckS (1,1) ' nome 

LINE INPUT #1, CheckS (i, 2) ' note 

LINE INPUT #1, CheckS (i,3) ' importo 

NEXT i 

FOR i = 1 TO MaxMemos 

LINE INPUT #1, MemoS(i) 

NEXT i 

FOR j = 1 TO 6 'dati per stampa assegni 
FOR i = 1 TO 3 

INPUT #1, PosInfo(j,i) 'campo,linea,tabulazione 
NEXT i 
NEXT j 

INPUT #1,ChkTotalLines 

FOR i = 1 TO Noltems ' fino a 250 elementi 

FOR j= 1 TO 5 ' numero, data,no • 

me,importo,note 

LINE INPUT #1, ItemS(i,j) 

NEXT j 
NEXT i 

FOR i = 1 TO Noltems 
INPUT #1,Index (i) 

NEXT i 
CLOSE 1 


TopRec=l: Y = 31 

MENU.1,3,1: MENU 1,4,1: MENU 1,6,1 'attiva Registra e Sta • 

mpa 

MENU 3,0,1: MENU 4,0,1 'attiva menu Account e Ordina 

IF Sortcode>0 THEN MENU 4,Sortcode,2 'controlla elemento 
ordinamento 

MENU 4,2,0 'disable Find Next 

State = 0: GOSUB Menu5and6 'aggiunge nuovi nomi e not • 

e al menu 


RETURN 


FileSaveAs: 

N$=FILESS(0,"Nome del file:") 

IF N$="" THEN RETURN 'premuto CANCELLA 
FileSave: 


IF N$="" THEN GOTO FileSaveAs 
SETCURSOR (VARPTR(Watch(1))) 
OPEN N$ FOR OUTPUT AS 1 
PRINT #1, Noltems 
PRINT #1, Sortcode 
PRINT #1, LastCheckNum! 

PRINT #1,SBalance! 

PRINT #1,Balance! 


PRINT #1,PBalance! 

FOR i = 1 TO MaxChecks 

PRINT #1, CheckS(i,1) 

PRINT #1, CheckS(i,2) 

PRINT #1,CheckS (i,3) 

NEXT i 

FOR i = 1 TO MaxMemos 
PRINT #1, Memo$(i) 

NEXT i 

FOR j = 1 TO 6 'dati per stampa assegni 
FOR i = 1 TO 3 

PRINT #1, Poslnfo ( j,i) 

NEXT i 
NEXT j 

PRINT #1,ChkTotalLines 
FOR i = 1 TO Noltems 
FOR j= 1 TO 5 

PRINT #1, ItemS(i,j) 

NEXT j 


campo,linea,tabulazione 


(Continua) 


annullare un'introduzione di credito 
o di debito fate click sul pulsante 
Cancella. 

Per avere informazioni esatte sul 
saldo del vostro conto corrente dove¬ 
te impostare il vostro saldo iniziale. 
Lo si fa con la quarta opzione del 
menù Conto, Saldo Iniziale, che ri¬ 
chiede soltanto un'introduzione nu¬ 
merica in un unico campo di edi¬ 
ting. In genere vi basterà impastare 
una volta il saldo iniziale, lasciando¬ 
lo poi stare. A ogni modo MacBan- 
ker permette di modificare in qualsia¬ 
si momento questo importo, e cor¬ 
reggerà automaticamente i vostri sal¬ 
di come il caso richiede. 

Quando avete completato una sedu¬ 
ta d’introduzione degli assegni, fatto 
un versamento, impostato il saldo i- 
niziale, e siete tornati alla finestra E- 
sposizione, i dati di conto corrente 
che avete introdotto sono visualizza¬ 
ti come in figura 1. Da sinistra a 
destra sono visualizzati, sotto le ri¬ 
spettive intestazioni, numeri degli 
assegni, date, nomi e importi. Se si 
tratta di una voce di credito l'impor¬ 
to è visualizzato sotto l’intestazione 
credito. Se si tratta di una voce di de¬ 
bito è visualizzato sotto l'intestazio¬ 
ne debito. L’ultima colonna del di¬ 
splay indica se la voce è spuntata o 
meno. Se un assegno o un versamen¬ 
to è stato passato dalla banca compa¬ 
re nel riquadro di questa colonna un 
segno di spunta. Se non è stato anco¬ 
ra passato il riquadro è vuoto. 

Una delle caratteristiche più at¬ 
traenti di MacBanker è la facilità con 
cui si possono aggiornare i dati de¬ 
gli assegni. Spostando il mouse al¬ 
l’interno della finestra Esposizione, 
noterete che il cursore cambia quan¬ 
do passa su certe zone della finestra. 
Quando il cursore è nella barra di me¬ 
nù ha la normale forma di una frec¬ 
cia, a indicare che potete fare una 
scelta sul menù. Quando è nella fine¬ 
stra Esposizione sotto le colonne di 
numero, data, nome, promemoria e 
importo il cursore assume la forma 
di un minuscolo assegno. Facendo 
click su una voce con il pulsante del 
mouse quando il cursore è un asse¬ 
gno in miniatura, viene visualizzata 
la finestra di editing, per consentire 
la modifica della voce. 

Quando l’assegno è sotto l’intesta¬ 
zione Spuntato, prende la forma di 
un segno di spunta. Se fate click 
con il pulsante del mouse su una vo¬ 
ce di questa colonna viene commuta¬ 
to lo stato di spunta della voce e vie¬ 
ne visualizzato nel riquadro il simbo- 


Definisci i nomi 
Nome Nota 


Importo 


|Roberto Benigni 

Ibischi | 


| 250000 


Renzo Arbore 

DONO 

175000 

Lorenzo Astori 

PUFFO 

120580 

|Renata Minnelli j 

MULTID | 

| 808000 

(Silvio Emittenza 

jciNQ 

2500 

| Appi e Ine 

|hard 

750000 

Security Bank 

SPESE | 

150000 

Intelligence Service 

HELP 

950000 

1 . . 



( 
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( 
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Figura 4. Finestra di definizione degli assegni. 

Figura 5. Impianto della stampante 
per assegni a modulo continuo. 


Controllo dati di stampa 



Linea: Tab: 

Città: 

■1 \J°\ 

Data: 

m cu 

Importo-Ut: 

1| | 60| 

Importo-Lire: 

5| [ 1 oj 

A favore: 

7l | 10 

Linee totali: 

2l| 


Proua 


Cancella] ( OK ] 

V 


lo appropriato. Infine quando sposta¬ 
te il cursore nella zona della barra di 
scorrimento esso ridiventa una frec¬ 
cia, a indicare che sono possibili le 
azioni di scorrimento. 

Quando richiamate la finestra di e- 
diting degli assegni, facendo click su 
un assegno o su una voce di debi¬ 
to/credito (allorché il cursore ha la 
forma di un assegno), viene visualiz¬ 
zata una finestra molto simile all'ori¬ 
ginaria finestra di introduzione degli 
assegni (figura 2). La sola differen¬ 
za è raggiunta di un pulsante Annul¬ 
la accanto ai pulsanti Cancella e 
OK. Tutte le eventuali modifiche del¬ 
le informazioni sugli assegni devo¬ 
no essere fatte a questo punto, e con 
un click su OK saranno accettate le 
informazioni modificate. Se decidete 
di non modificare le informazioni, fa¬ 
te click sul pulsante Cancella per ri¬ 
pristinare i valori originali. 

Dato che gli assegni sono numera¬ 
ti, è importante conservare nel data 
base le informazioni sugli assegni 
annullati. Premendo il pulsante An¬ 
nulla si introduce la parola ** Annul¬ 
lato** al posto del nome dell’asse¬ 
gno, l’importo viene azzerato e la fi¬ 
nestra di editing viene chiusa. Se la 
voce che si sta modificando è di debi¬ 
to o di credito, la pressione del pul¬ 
sante Annulla la toglie automatica- 
mente dalla lista degli assegni. 

Una volta che avete stabilito il vo¬ 
stro data base per gli assegni, e ave¬ 
te introdotto più di una schermata di 
assegni, sono utilizzabili diverse ca¬ 
ratteristiche della finestra Esposizio- 


NEXT i 

FOR i = 1 TO Noltems 
PRINT #1,Index (i) 
NEXT i 

NAME N$ AS N$,"BANCA" 
CLOSE 1 

Changed = False 


RETURN 


FilePrintSet: 

WINDOW 2,"",( 130, 60)-( 370, 300), -2 
MOVETO 5, 15: PRINT "Controllo dati di stampa" 

MOVETO 100,45: PRINT "Linea: Tab:" 

MOVETO 5,65: PRINT "Città:" 

MOVETO 5,90: PRINT "Data:" 

MOVETO 5,115: PRINT "Importo-Lit:" 

MOVETO 5,140: PRINT "Importo-Lire:" 

MOVETO 5,165: PRINT "A favore:" 

MOVETO 5,190 : PRINT "Linee totali:" 

DX = 100: DY = 55 
FOR j = 1 TO 5 

FOR i = 1 TO 5 

IF Poslnfo(i, 1) = j THEN EDIT FIELD {2* j-1) ,STR$(Posin • 
fo(i,2)), (DX,DY+(j-l)*25)-(DX+25,DY+(j-l)*25+15),1,3: Undolnfo(j • 
,2)=PosInfo(i,2) 

IF Poslnfo(i,1)-j THEN EDIT FIELD (2*j),STR$(Poslnfo • 
(i,3)), (DX+40,DY+(j-1)*25)-(DX+ 65,DY+(j-1)*25 + 15),1,3: Undolnfo( • 
j,3)=PosInfo (i,3) 

NEXT i 
NEXT j 

EDIT FIELD 11,STRS(ChkTotalLines), (100, 180)-(130, 195), 1,3 
BUTTON 1,1,"OK", (160,210)-(220,230), 1 
BUTTON 2,1,"Cancella", (90, 210)-(150, 230), 1 
BUTTON 3,1,"Prova", (20, 210)-(80, 230), 1 
NumEf=11: Ef-1 
PrintSetLoop: 

WaitModal (NumEf) 

IF ButtonId=2 THEN GOSUB CancelPrintSet: RETURN 


ErrFlag = 0 
FOR i = 1 TO 5 

Poslnfo(i,1) = i 
Temp$= EDIT$(2*i-l) 

IF LEN(Temp$)<4 THEN Poslnfo (i,2) = VAL(Temp$) ELSE ErrF • 
lag * 2*i-1 

IF Poslnfo(i,2)<1 OR Poslnfo(i,2)>70 THEN ErrFlag « 2*i-l 
Temp$=EDIT$(2*i) 

IF LEN(Temp$)<4 THEN Poslnfo (i,3) = VAL (Temp$) ELSE ErrF • 
lag = 2*i 

IF Poslnfo(i,3) <1 OR Poslnfo (i,3)>70 THEN ErrFlag =2*i 
NEXT i 

Temp$=EDIT$(11) 

IF LEN(TempS)<4 THEN ChkTotalLines=VAL(TempS) ELSE ErrFlag = 9 
IF ChkTotalLines<10 OR ChkTotalLines>66 THEN ErrFlag = 9 
IF ErrFlag <>0 THEN BEEP: Ef= ErrFlag: GOTO PrintSetLoop 
FOR j-1 TO 3 

for i = i to 3 (Continua) 
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IF Poslnfo(i,2)*80+Poslnfo(i,3)> Poslnfo (i+1,2)*80+P • 
oslnfo(i+1,3) THEN GOSUB SwapPosInfo 
NEXT i 
NEXT j 

IF Buttonld = 3 THEN GOSUB TestPrint: GOTO PrintSetLoop 

WINDOW CLOSE 2 

RETURN 

SwapPosInfo: 

FOR k = 1 TO 3 

SWAP Poslnfo(i,k),Poslnfo(i + 1, k) 

NEXT 

RETURN 


CancelPrintSet: 

FOR j = 1 TO 4 'rilegge dati originali perché la prova li • 
ha rimossi 

Poslnfo(j,1)=j 

Poslnfo(j,2)=UndoInfo(j, 2) 

Poslnfo(j,3)=UndoInfo{j, 3) 

NEXT j 

WINDOW CLOSE 2 
RETURN 

TestPrint: 

Trial = True: GOSUB PrintCheck: Trial = False 
RETURN 


FilePrint: 

SETCURSOR(VARPTR(Watch(1) ) ) 

WINDOW 2,"", ( 50, 60 ) - ( 464, 285), -2 
Select = 1 : TEXTFACE 1 

MOVETO 135, 20: PRINT "Scelta selezione": TEXTFACE 0 

BUTTON 1,2,"Stampa tutti i dati",( 20, 30)-( 170, 45), 3 

BUTTON 2,1,"Solo se la nota è",( 20, 50)-( 170, 65), 3 

BUTTON 3,1,"Dalla data",( 20, 70)-( 170, 85), 3 

BUTTON 4,1,"Dal numero",( 20, 90)-( 170, 105), 3 

BUTTON 5,1,"Solo se il nome è",( 20, 110)-( 170, 125), 3 

BUTTON 6,1, "I valori spuntati", ( 20, 130)-( 170, 145), 3 

BUTTON 7,1, "I valori non spuntati", ( 20, 150)-( 180, 165), 3 

BUTTON 8,1,"OK",(350,180)-(410,200), 1 

BUTTON 9,1,"Cancella", (280,180)-(340,200), 1 

MOVETO 285,80: PRINT "a" : MOVETO 230,100: PRINT "a" 

EDIT FIELD 1,"",( 175, 50)-( 260, 65) 

EDIT FIELD 2,"", (175,70)-(270, 85) 

EDIT FIELD 3,"", (310,70)-(400, 85) 

EDIT FIELD 4, "", (175,90)-(215, 105) 

EDIT FIELD 5, (255,90)-(300, 105) 

EDIT FIELD 6, "", (175,110)-(355,125) 

NumEf=6: Ef = 1 
ErrorLoop: 

INIT.CURSOR 
Done = False 
WHILE NOT Done 

WaitModal(NumEf) 

IF Buttonld >= 8 THEN Done=True 

IF ButtonId<8 THEN BUTTON Select,1 :Select = Buttonld:BUT • 
TON Select,2 
WEND 

SETCURSOR(VARPTR (Watch (1))) 

IF Buttonld = 9 THEN WINDOW CLOSE 2: RETURN 

IF Select = 2 THEN CriteriaS (1)=EDIT$(1):Criteria$ (2)="":Fie • 
ldld=5 'note 


IF Select = 3 THEN day$=EDIT$ (2) : GOSUB PackDate: Criteria$( • 
1)=dayvalue$ 

IF ErrFlag THEN BEEP: Ef=2:ErrFlag = False: GOTO ErrorLoop 
IF Select = 3 THEN day$=EDIT$(3):GOSUB PackDate:CriteriaS(2) • 

=dayvalue$:Fieldld=2 'date 

IF ErrFlag THEN BEEP: Ef=3:ErrFlag = False: GOTO ErrorLoop 
IF Select = 4 THEN CriteriaS (1)=EDIT$ (4) :Criteria$(2)=EDIT$( • 
5):FieldId=l 'numeri 

IF Select = 5 THEN CriteriaS (1)=EDIT$ (6) :CriteriaS (2)="":Fie • 
ldld=3 'nomi 

WINDOW CLOSE 2 
TotalCred!=0 : TotalDeb!=0 
WINDOW 2,"", (170,100)-(320,170),-2 
PRINT "Sto stampando..." 

PRINT "Premi TEXTFONT 0: PRINT CHR$(17);: Geneval2:PRINT • 

PRINT" per fermare"; 

ON BREAK GOSUB PrintCancel 

OPEN "LPT1:DIRECT" FOR OUTPUT AS 2 

Page=l: Lines = 5:PRINT #2,SetTopFormS: PRINT #2,SetLeftMarg • 
in$: GOSUB Header 

FOR i = 1 TO Noltems 
k = Index(i) 

PFlag = False 

ON Select GOSUB PAH,PEguals,PRange,PRange,PEquals,PPost • 
ed,PPosted 

IF PFlag = False THEN GOTO FilePrintNext 
dayvalue$=Item$(k,2):GOSUB unpackdate 

PRINT #2, TAB(TNum);:IF VAL(ItemS(k,1))>0 THEN PRINT #2, • 
USING NumS; VAL(ItemS (k, 1) ) ; . * 

(Continua) 


ne per rintracciare specifici assegni o 
categorie di assegni. Queste caratteri¬ 
stiche sono contenute nel menù E- 
sposizione e comprendono capacità 
sia di ricerca sia di ordinamento. 

La prima voce del menù Esposizio¬ 
ne è l'opzione Trova. Selezionando 
Trova si richiama un box di dialogo 
nel quale si può specificare una strin¬ 
ga di ricerca. Facendo click sul pul¬ 
sante OK o premendo <Retum> si 
fa sì che venga esplorato il campo di 
nome di ciascun assegno alla ricerca 
di questa stringa. La funzione di ri¬ 
cerca di MacBanker ignora il tipo di 
carattere (maiuscolo o minuscolo) e 
segnala una corrispondenza quando 
la stringa di ricerca è contenuta in u- 
na qualsiasi parte del campo di nome 
di un assegno. Se viene trovata una 
corrispondenzal'assegnoèvisualizza- 
to in inverse nella finestra Esposizio¬ 
ne fino a quando si fa nuovamente 
click sul mouse. Se si raggiunge la 
fine del file senza aver trovato la 
stringa un box di dialogo segnala 
l'insuccesso della ricerca. 

Una volta che avete designato una 
stringa di ricerca ed eseguito una ri¬ 
cerca riuscita, l'opzione Trova se¬ 
guente continua a cercare nel data ba¬ 
se la successiva manifestazione della 
stringa. Trova seguente comincia la 
ricerca con l’assegno che segue l'ulti¬ 
mo assegno trovato, e come l'opzio¬ 
ne Trova segnala una ricerca infrut¬ 
tuosa visualizzando un box di dia¬ 
logo. Oltre alle opzioni Trova e Tro¬ 
va prossimo, il menù Esposizione 
vi dà l'opzione di ordinare i vostri da¬ 
ti per nome, numero o data. Quando 
l'ordinamento è completo i dati ven¬ 
gono visualizzati nel nuovo ordine, 
e un segno di spunta viene messo ac¬ 
canto all'ordine corrente nel menù E- 
sposizione. Anche se vi occorreran¬ 
no per lo più i dati in ordine di nu¬ 
mero, l'ordinamento per nome o per 
data può essere utile per esaminare 
gli schemi delle spese e per ordinare 
i dati prima di stampare un pro¬ 
spetto. 

Caratteristiche 
speciali e macro 

Una delle caratteristiche più poten¬ 
ti di MacBanker è la sua capacità di 
immagazzinare istruzioni che si po¬ 
trebbero definire macroistruzioni per 
gli assegni. 

Un'unica scelta del menù vi per¬ 
mette di introdurre i dati per gli spe¬ 
cifici assegni che scrivete su base pe¬ 
riodica. Hanno accesso a questa carat- 
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teristica gli ultimi due menù, Asse¬ 
gni e Memo. 

Quando eseguite per la prima vol¬ 
ta MacBanker la scelta del menù As¬ 
segni visualizza un'unica voce di me¬ 
nù, Definisci assegni, e una serie di 
18 linee orizzontali. Se scegliete la 
prima voce viene aperto un box di 
dialogo, come si vede nella figura 
4. Le tre colonne dei campi di edi¬ 
ting possono comprendere un massi¬ 
mo di nove diversi assegni, comple¬ 
ti di nome, promemoria e importo. 
Se uno degli assegni che scrivete o- 
gni mese è un rateo di mutuo per 
l'automobile all'ordine della vostra 
banca per 567.890 lire, potreste in¬ 
trodurre il nome della banca nella co¬ 
lonna del nome della prima riga, Au¬ 
to nella colonna del promemoria e 
567.890 nella colonna deH'importo. 
Nelle altre righe possono essere in¬ 
trodotti altri assegni scritti su base 
periodica. 

Se si vuole, sia il campo dell'im- 
porto sia quello del promemoria pos¬ 
sono essere lasciati in bianco, in mo¬ 
do di poter cambiare ogni mese l'im¬ 
porto. 

Se volete definire più di nove asse¬ 
gni premete il pulsante Pagina per 


gli altri nove assegni. Poiché per ot¬ 
tenere i dati vengono usati campi di 
editing, si possono utilizzare, per 
modificare le informazioni degli asse¬ 
gni, le funzioni taglia, copia e incol¬ 
la. Quando avete ultimato la defini¬ 
zione dei vostri assegni fate click 
sul pulsante OK, ed essi vengono ag¬ 
giunti al menù Assegni. Per usare 
questo menù selezionate anzitutto, 
sul menù Conto, Introduci assegno. 
Una volta aperta la finestra di intro¬ 
duzione degli assegni scegliete una 
voce sul menù degli assegni. I dati 
che avete definito per il nome, l'im¬ 
porto e la nota sono automaticamen¬ 
te introdotti negli opportuni campi 
di editing e non avete che da premere 
il pulsante OK per aggiungere rasse¬ 
gno al data base. 

Il menù Memo è simile al menù 
Assegni, con la differenza che per¬ 
mette l'introduzione di promemoria 
predefiniti. Ciò può essere utile per 
predisporre categorie standard di asse¬ 
gni per la dichiarazione dei redditi e 
per definire promemoria per i versa¬ 
menti, le spese di servizio e le opera¬ 
zioni di sportello automatico. Come 
nella definizione degli assegni, la 
scelta dell’opzione Definisci memo a¬ 


pre un box di dialogo con la possibi¬ 
lità di introdurre nove promemoria. 
Per ottenere gli altri nove premete il 
pulsante Pagina per commutare fra 
la prima e l'ultima metà della lista. 
Gli assegni e i memo che definite 
nei menù Assegni e Memo sono sal¬ 
vati insieme ai dati dei vostri asse¬ 
gni quando usate le opzioni del me¬ 
nù Archivio Registra o Registra con 
il nome. 

Archiviazione 
e stampa 

Il menù Archivio di MacBanker è 
analogo alla maggior parte degli al¬ 
tri menù Archivio del Mac. Un'op¬ 
zione Nuovo vi permette di cancella¬ 
re tutto e di ricominciare da capo. 
Un'opzione Apri vi consente di cari¬ 
care un file da dischetto. Le opzioni 
Registra e Registra con il nome vi 
permettono di aggiornare il file cor¬ 
rente o di salvarlo con un nome di¬ 
verso. Come di consueto si trova 
nel menù Archivio anche l'opzione 
Esci. 

Le opzioni di stampa di MacBan¬ 
ker non sono altrettanto ordinarie. 
La prima opzione di stampa, Predi- 




pplicando a portata di mano 


E' disponibile il raccoglitore di Applicando e gli indici su 
dischetto degli anni 1983/84/85. Ogni raccoglitore 
consente di archiviare le annate 1983 e 1984 insieme 
oppure i numeri del 1985. Ordina subito i tuoi 
raccoglitori: riceverai in omaggio un numero arretrato di 
Applicando a tua scelta (valore L. 7.000) per ogni 
raccoglitore ordinato ( n.b. i numeri 1 e 2 sono esauriti). 






Sì, voglio avere Applicando sempre 
a portata di mano. Inviatemi: 

□ N.raccoglitori per 

Applicando a L. 18.000 cadauno 
In omaggio inviatemi l’arretrato/i 
N.(1 e 2 esauriti) 

□ Disco indici 

□ per Apple II a L.5.000 

□ per Macintosh a L.10.000 
(utilizzabile con MacWrite) 

Vi invio L.a mezzo 

□ assegno non trasferibile 
allegato intestato a Editronica srl 

□ versamento su ccp N. 19740208 
Editronica srl Corso Monforte 39 
20122 Milano di cui allego ricevuta 


Nome 


Cognome 


Cap.Prov. 


Compilare, ritagliare e inviare in busta chiusta allegando il pagamento a Editronica srl - Corso Monforte 39 - 20122 Milano 

















sponi stampa, viene utilizzata per 
specificare il formato per remissio¬ 
ne di assegni a modulo continuo. La 
selezione di questa opzione di menù 
visualizza il box di dialogo visibile 
nella figura 5. Quando viene stam¬ 
pato un assegno vengono emessi 
cinque campi: la città, la data, il no¬ 
me e fimporto, in cifre e in lettere. 
Dato che gli assegni a modulo conti¬ 
nuo differiscono nel formato, a se¬ 
conda del fornitore e dello stile che 
scegliete, dovrete definire di persona 
rimpianto per quelli che acquistate. 

Per ciascuno dei cinque campi è 
possibile scegliere la linea e la posi¬ 
zione di tabulazione per i dati. Per 
l'assegno nel suo insieme dovrete 
specificare il numero di linee da 
stampare per ogni assegno. A questo 
scopo potete, se volete, misurare 
l’assegno e usare le misure ottenute 
per compilare i campi di editing, 
ma il pulsante Prova offre un meto¬ 
do alternativo. Premendo questo pul¬ 
sante si inviano dati campione alla 
stampante nelle posizioni presente- 
mente specificate. Alternando la mo¬ 
difica delle informazioni sull’impian¬ 
to della stampante e la pressione del 
pulsante Prova potete rapidamente 
determinare le impostazioni giuste 
per i vostri assegni. L'impianto cor¬ 
rente della stampante viene salvato 
assieme al vostro file quando usate 
nel menù Archivio le opzioni Regi¬ 
stra o Registra con il nome. 

La seconda opzione di Stampa del 
menù Archivio di MacBanker viene 
usata per generare prospetti. Quando 
selezionate l'opzione Stampa viene 
visualizzato il box di dialogo visibi¬ 
le nella figura 6. Una serie di pul¬ 
santi di scelta vi permette di selezio¬ 
nare una parte dei dati dei vostri asse¬ 
gni per l’invio alla stampante. 

Come potete vedere, MacBanker 
comprende opzioni di prospetto per 
tutte le voci, per quelle con un deter¬ 
minato promemoria, per quelle com¬ 
prese in una fascia di date o di nu¬ 
meri, per quelle con un determinato 
nome e per le voci spuntate o quelle 
non spuntate. Come nell’opzione 
Trova, le stringhe specificate nei cri¬ 
teri di prospetto possono essere in 
maiuscolo o in minuscolo, e le corri¬ 
spondenze verranno trovate qualun¬ 
que sia il carattere. 

Per specificare un fascia di date u- 
sate uno dei seguenti formati per in¬ 
trodurre la data: 8 giul986, 8-6-86 o 
8/6/86. Notate che non è necessario 
completare i giorni o i mesi di una 
sola cifra anteponendo alla cifra uno 


PRINT #2, TAB(TDate); :PRINT #2, day$; 

PRINT #2, TAB (TName) PRINT #2, ItemS(k,3); 

IF Item$(k, 3 )="Credito" THEN PRINT #2, TAB(TCredit); ELS 
E PRINT #2, TAB(TDebit); 

Tempi = ABS(VAL(Item$(k,4))) 

PRINT #2, USING Dollar$;Temp! ; 

IF Item$(k, 3 )="Credito" THEN TotalCred!=TotalCred!+Temp! 
ELSE TotalDeb!=TotalDeb!+Temp! 

PRINT #2, TAB(TMemo)PRINT #2, ItemS(k,5); 

PRINT #2, TAB (TPost+3); 

IF VAL(ItemS(k, 4) ) <0 THEN PRINT #2, "N "; ELSE PRINT #2 

, "S"; 

PRINT #2, 

Lines = Lines +1: IF Lines = 56 THEN Lines =5: Page = Pa 
ge + 1:PRINT #2, FormFeedS: GOSUB Header 
FilePrintNext: 

NEXT i 

PRINT #2, STRINGS(80,"-") 

PRINT #2,TAB(TCredit); : PRINT #2,USING Dollar$;TotalCred! ; 
PRINT #2,TAB(TDebit); : PRINT #2,USING Dollar$;TotalDeb! 

PRINT #2, TAB (64);"Saldo: ";:PRINT #2, USING DollarS;Balance 
PRINT #2, TAB (55); H Saldo spuntato: ";:PRINT #2, USING Dolla 
rS;PBalance ! 

PRINT #2, FormFeedS 
CLOSE 2 

ON BREAK GOSUB BreakTrap 

WINDOW CLOSE 2 

RETURN 


Header: 


PRINT #2,CHR$(13): PRINT #2, "MacBanker";TAB (40);"Pagina "; 
Page;TAB(65); 

PRINT # 2,MIDS(NowS,4,2);" - ";Month$(VAL(NowS));" - ";MID$(N 
ow$,7) 

PRINT #2, "Selezione: "; 


IF Select =1 THEN PRINT #2, "Tutti"; 

IF Select = 2 THEN PRINT #2, "Note uguale ";Criteria$ ( 1); 

IF Select = 3 THEN PRINT #2, "Date da "; :dayvalue$=Criteria$ 

(1): GOSUB unpackdate:PRINT #2, day$;" a "; :dayvalue$=Criteria$( 
2): GOSUB unpackdate:PRINT #2, dayS 

IF Select = 4 THEN PRINT #2, "Numeri da ";Criteria$(1);" a " 
;Criteria$(2) 

IF Select = 5 THEN PRINT #2, "Nome uguale "; CriteriaS(1); 

IF Select = 6 THEN PRINT #2, "Elementi spuntati "; 

IF Select = 7 THEN PRINT #2, "Elementi non spuntati "; 


PRINT #2, 
PRINT #2, 
PRINT #2, 
emo) ; 

PRINT #2, 
PRINT #2, 
RETURN 


TAB(TNum);"Numero"; 

TAB(TDate);"Data";TAB(TName);"Intestatario"; 

TAB(TCredit);"Credito";TAB(TDebit);"Debito";TAB(TM 

"Note";TAB(TPost);"Spuntato" 

STRINGS(80,"«") 


PAH : 

PFlag » True 
RETURN 

PEquals: 

IF UCASES(ItemS(k, Fieldld) ) = UCASES(CriteriaS(1)) THEN PFla 
g = True 
RETURN 


PRange: 

IF VAL(ItemS(k,Fieldld))>=VAL(CriteriaS(1)) AND VAL(Item$(k, 
Fieldld))=<VAL(CriteriaS(2)) THEN PFlag = True 
RETURN 


PPosted: 

IF Select = 6 AND VAL(ItemS(k,4)) >0 THEN PFlag = True 
IF Select = 7 AND VAL(ItemS(k,4))<0 THEN PFlag = True 
RETURN 

FileQuit: 

IF NOT Changed THEN WINDOW CLOSE 1: END 

GOSUB Confirm 

IF NOT OK THEN RETURN 

WINDOW CLOSE 1 

END 

'Menu Edizione - 

EditMenu: 

' Tutti gli eventi di edit sono controllati dal sistema oper 
at ivo 


•Menu Conto - 

AcctMenu: 

IF Itemld>3 THEN PutUpdate = True ELSE PutUpdate » False 
ON Itemld GOSUB AcctAdd, AcctCredit,AcctCredit,AcctStart,Acc 

tBal 

RETURN 
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AcctAdd: 

T = -1: CreditF=-l 
GOSUB Transaction 
RETURN 

NoSpace: 

WINDOW 2, " " , ( 155,60)-(355, 200), -2 
MOVETO 10, 30 

PRINT "Questo file è pieno. Salvalo" 

PRINT "e inizia un nuovo file di lavoro." 

BUTTON 1,1,"OK",( 100, 90)-( 165, 110), 1 
NumEf=0 : INITCURSOR 
WaitModal(NumEf) 

WINDOW CLOSE 2 
RETURN 

AcctCredit: 

T=1 

IF Itemld - 2 THEN CreditF = 1 ELSE CreditF = -1 

GOSUB Transaction 

RETURN 

AcctStart: 

WINDOW 2,"", ( 155,60)-(355, 200) , -2 

MOVETO 10, 30 

PRINT "Saldo iniziale" 

ButtonL=l00 :ButtonT=95:ButtonR=165:ButtonB=115 
BUTTON l,l,"OK",( ButtonL, ButtonT)-( ButtonR, ButtonB), 1 
Encircle ButtonT,ButtonL,ButtonB,ButtonR 
EDIT FIELD 1,STR$(SBalance!),( 75, 50)-( 150, 65),1,3 
NumEf = 1 :Ef = 1: ReturnOK = True: INITCURSOR 
BalErrorLoop: 

WaitModal (NumEf) 

Tempi = VAL(EDIT$(1)) : IF TempicO THEN BEEP: GOTO BalErrorLoop 
Balance! = Balance! - SBalance! 

PBalance! = PBalance! - SBalance! 

SBalance! = VAL(EDIT$(1 ) ) 

Balance! = Balance! + SBalance! 

PBalance! = PBalance! + SBalance! 

WINDOW CLOSE 2 
ReturnOK = False 
RETURN 

AcctBal: 


WINDOW 2,"", 

, (155 

,60)- 

(355,200),-2 




MOVETO 10, 

30: 

PRINT 

"Saldo iniziale"; 

; TAB(15) 

; : PRINT 

USING 

Dollar$;SBalance! 






MOVETO 10, 

55: 

PRINT 

"Saldo";TAB(15); : 

: PRINT 

USING Dollar$; 

Balance! 







MOVETO 10, 

75: 

PRINT 

"Saldo spuntato", 

:TAB(15) 

; : PRINT 

USING 


DollarS;PBalance! 

ButtonL=l00 :ButtonT=95:ButtonR=165:ButtonB=ll5 

BUTTON 1,1,"OK",( ButtonL, ButtonT)-( ButtonR, ButtonB), 1 

Encircle ButtonT,ButtonL,ButtonB,ButtonR 

NumEf=0: ReturnOK = True: INITCURSOR 

WaitModal (NumEf) 

WINDOW CLOSE 2 
ReturnOK = False 
RETURN 

' Verifica Routine Edit - 

EditItem: 

IF ItemS(j,3)="Credito" OR Item$(j,3) = "Debito" THEN T=2 EL • 
SE T = -2 

CreditF =-l 

IF T=2 AND ItemS(j,3)="Credito" THEN CreditF = 1 

GOSUB Transaction 

RETURN 

Editlnfo: 

El$=Item$(j,1) 

E2$=Item$(j,3) 

E3$ = STR$(ABS(VAL(Item$ ( j,4)))) 

E4$=Item$(j,5) 

IF VAL(Item$( j,4))>0 THEN Posted = True ELSE Posted = False 
Month = VAL(MIDS(ItemS (j,2),5,2)) 
day = VAL(RIGHTS(Item$(j,2),2)) 

Year = VAL(LEFTS(Item$ ( j,2),4)) 

RETURN 

AdjustBal: 

Tempi = VAL(ItemS(j,4)) 

IF Temp!>0 THEN PBalance! = PBalance! - CreditF *ABS(Tempi) • 

'aggiorna bilancio spuntato 

Balance! = Balance! - CreditF * ABS(Temp!) 

RETURN 

' Finestra Esposizione - 

Click: 

Ine = 0 

IF HitYl < Y-7 THEN Ine = -10 
IF HitYl > Y+7 THEN Ine = 10 


(Continua) 


zero. I prospetti vengono stampati 
con un’intestazione di due righe che 
mostra la data, il numero di pagina e 
i criteri di selezione. Se un prospet¬ 
to occupa più di una pagina viene e- 
messo a fine pagina un piede di ri¬ 
ghe vuote. 

Alla fine del prospetto viene stam¬ 
pato un breve sommario delle infor¬ 
mazioni sul vostro saldo. 

Come introdurre 
il programma 

Per digitare MacBanker usate la 
versione decimale del MS Basic (2.0 
o più recenti) per introdurre il codice 
visibile nel listato 1. Se volete po¬ 
tete escludere l’istruzione BREAK 
ON fino a quando avrete corretto tut¬ 
ti gli errori di battuta, in modo da 
poter usare <Command> per fermare 
il programma. Dato che MacBanker 
usa il font London (a 18 punti) im¬ 
piegate il Font/DA Mover dell’Ap- 
ple per copiare questo carattere sul di¬ 
schetto di sistema con il quale verrà 
utilizzato MacBanker. 

Infine, un avvertimento fondamen¬ 
tale: MacBanker non funziona sul 
Mac da 128K. 

MacBanker è strutturato, come la 
maggior parte delle applicazioni del 
Mac, con un loop principale d’even¬ 
to che attende l’azione dell’utente, e 
con una serie di routine che gestisco¬ 
no le azioni. Consiste di una sezio¬ 
ne di inizializzazione, un loop princi¬ 
pale che attende eventi da menù o e- 
venti da mouse nella finestra Esposi¬ 
zione, routine che gestiscono i sin¬ 
goli eventi dei menù e subroutine e 
sottoprogrammi utilizzati da una o 
più delle routine principali. 

Inizializzazione 
e loop principale 

Le prime linee di MacBanker disa¬ 
bilitano l'uso di <Command> per u- 
scire dal programma, chiudono la fi¬ 
nestra di output presentemente atti¬ 
va, e richiamano la routine Initialize 
per predisporre le costanti del pro¬ 
gramma e le strutture dei dati. Initia¬ 
lize legge i dati per i cursori di orolo¬ 
gio, segno di spunta e assegni, di¬ 
mensiona le matrici del programma, 
assegna le costanti, legge i dati per 
rimpianto di default della stampante 
e la data, e predispone le costanti per 
la barra di scorrimento. 

MacBanker impiega quattro grandi 
matrici, Item$(ij), Index$(j), Che- 
ck$(i j) e Memo$(j), per tener nota 
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delle informazioni degli assegni. L'i¬ 
struzione OPTION BASE 1 imposta 
su uno il punto di partenza per tutti 
gli indici di matrice. Item$ è una ma¬ 
trice bidimensionale utilizzata per 
conservare i dati effettivi per ciascun 
assegno o voce di credito/debito. 

Il primo indice è il numero di re¬ 
cord della voce (non il numero del¬ 
l’assegno). E’ dimensionato in rap¬ 
porto alla costante Maxltems, che si 
trova nella linea precedente. Per 
quanto questo valore sia fissato a 
250 lo potete aumentare per sfruttare 
un Mac con più memoria. Ricordate 
però che per caricare e salvare un file 
molto vasto ci vorrà un tempo pro¬ 
porzionalmente maggiore. 

Il secondo indice di Item$ spazia 
da uno a cinque e rappresenta i cam¬ 
pi di numero, data, nome, importo e 
promemoria. Le informazioni sullo 
stato di spunta di una voce sono te¬ 
nute nel segno del campo dell’impor¬ 
to. Gli importi positivi rappresenta¬ 
no voci spuntate e gli importi nega¬ 
tivi voci non spuntate. 

La matrice numerica, Index, è una 
lista di puntatori al primo indice del¬ 
la matrice Item$. Anziché scambiare 
durante un ordinamento tutti i dati 
in Item$ vengono scambiati solo i 
puntatori in Index. La matrice Index 
è poi utilizzata all’intemo dei loop 
che visualizzano o stampano i record 
per determinare l’ordine appropriato. 

Le matrici Check$ e Memo$ con¬ 
servano le informazioni sugli asse¬ 
gni definite nei menù Assegno e Pro¬ 
memoria. Check$ è bidimensionale 
per consentire tre voci di dati per o- 
gni singolo assegno definito. Me- 
mo$ conserva un unico elemento 
per ciascun promemoria definito. En¬ 
trambe le matrici vengono DIMen- 
sionate mediante costanti definite 
nella linea precedente (MaxChecks e 
MaxMemos). Dati i limiti di spazio 
del menù non è facile aumentare que¬ 
ste dimensioni al di là del presente 
valore di 18. 

Tre matrici più piccole vengono u- 
sate per conservare i nomi dei mesi 
(Month$), il numero massimo di 
giorni ammesso per ciascun mese 
(DaysInMonth) e le informazioni di 
posizione per rimpianto della stam¬ 
pante (Poslnfo). Quest’ultima è bidi¬ 
mensionale per consentire di fare un 
ordinamento sulla prima dimensio¬ 
ne mantenendo immutate le informa¬ 
zioni sul tipo di campo, sulla linea 
e sulla tabulazione nella seconda di¬ 
mensione. 

Dopo la chiamata a Initialize si ri- 


IF HitYl < BarTop AND HitYl > BarTop-15 THEN Ine = -1 
IF HitYl >BarBottom THEN Ine = 1 
IF Ine = 0 THEN RETURN 

IF TopRec = 1 AND Ine = -1 THEN RETURN 
IF TopRec =NoItems AND Inc=l THEN RETURN 
IncMove: 

TopRec = TopRec + Ine 

IF TopRec <1 THEN TopRec = 1 

IF TopRec > Noltems THEN TopRec = Noltems 

GOSUB DisplayReview 

GOSUB EraseBox 

Y = Y+ Ine *( (BarBottom-BarTop-8)/Noltems) 

IF Y > BarBottom-17 THEN Y = BarBottom-17 

GOSUB DrawBox 

RETURN 

Drag: 

OldY = Y 
PENNORMAL 

PENMODE 10 'XOR 

WHILE Hit<l 'mouse verso il basso 
MOVETO 475, Y 'disegna box 

CALL LINE (15,0): CALL LINE (0,15):CALL LINE (-15,0):CALL 
LINE (0,-15) 

Hit = MOUSE(0) 

HitX2=MOUSE (5): HitY2=MOUSE(6) 

IF HitY2<BarTop+l6 THEN HitY2=BarTop+8 
IF HitY2>BarBottom-l6 THEN HitY2=BarBottom-10 
MOVETO 475, Y 'cancella box 

CALL LINE (15,0):CALL LINE (0,15):CALL LINE (-15,0):CALL 
LINE (0,-15) 

Y=HitY2-7 

WEND 

PENMODE 8 'copia 

IF HitX2 <BarLeft THEN Y = OldY: RETURN 
SETCURSOR(VARPTR (Watch(1))) 

Y=HÌtY2-7 

TopRec = INT ( (Noltems) * (HitY2-BarTop-8)/ (BarBottom-BarTop-14 

) )+l 

Ine = 0 

GOSUB EraseBox 
GOSUB DrawBox 
GOSUB DisplayReview 
RETURN 

DisplayReview: 

LastRec = TopRec +MaxView-l 

IF LastRec > Noltems THEN LastRec = Noltems 
j = 1: SETCURSOR(VARPTR(Watch(1) ) ) 

IF Inc=l THEN GOSUB ScroilOneDown : RETURN 
IF Inc=-1 THEN GOSUB ScrollOneUp: RETURN 

LINE (ScroiIL,Scroi1T+1) - (ScrollR,Scroi1B) ,30,bf 'pulisce 
finestra di esposizione 

FOR i = TopRec TO LastRec 
k = Index(i) 

MOVETO 0,j*LineInc+ScrollT 
GOSUB DisplayOne 

j-J+1 

NEXT i 

Geneval2 

RETURN 

ScrollOneUp: 'click sulla freccia verso l'alto 

SCROLL(0,Scroi 1T+1 )-( ScroiÌR-ScrolIL, ScroilB-ScrollT+1) , 0, Li 
nelnc 

MOVETO 0, ScrollT+Linelnc 

LastRec = LastRec -1: k=Index(TopRec) 

GOSUB DisplayOne 
RETURN 

ScrollOneDown: 'click sulla freccia verso il basso 

SCROLL (0, ScrollT+2) - (Scroi ÌR-ScrolIL,ScrollB-ScrollT+2) ,0,- 
Lineine 

MOVETO 0, (LastRec-TopRec+1) *LineInc+ScrolIT 
k= Index(LastRec) 

GOSUB DisplayOne 
RETURN 

DisplayOne: 

Monaco9 

dayvalue$=Item$(k,2):GOSUB unpackdate 

PRINT TAB(TNum);: IF VAL(Item$(k,1)) >0 THEN PRINT USING Num$ 
; VAL(Item$(k,1)); ELSE PRINT STRING$(5," ") ; 

PRINT TAB(TDate);:PRINT day$; 

PRINT TAB(TName);:PRINT ItemS(k,3); 

IF Item$(k,3)="Credito" THEN PRINT TAB (TCredit ); ELSE PRINT 
TAB(TDebit); 

PRINT USING Dollar$;ABS(VAL(ItemS(k,4))); 

PRINT TAB(TMemo);:PRINT ItemS(k,5); 

PRINT TAB (TPost); 

TEXTFONT 3: TEXTSIZE 12: TEXTFACE 1:CALL MOVE (10,0) 

IF VAL(ItemS(k,4)) >=0 THEN PRINT CHRS(195); :CALL MOVE (-12,2 
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IF VAL(Item$(k,4))<0 THEN CALL MOVE(-1,2) 

TEXTFACE 0: PRINT CHR$(218); 'box 
RETURN 

DrawReview: 

WINDOW 1, (10,30) - (500, 330) ,3 

PICTURE ON 

LINE (0,15)-(490,15) 

TEXTFONT 4: TEXTSIZE 9 

PRINT TAB(TNum);"Num.";TAB(TDate);"Data";TAB(TName);"Element • 
o";TAB(TCredit + 2);"Credito";TAB(TDebit + 2 );"Debito";TAB(TMemo);"N • 
ota";TAB(TPost);"Spuntato"; 

TEXTFONT 3: TEXTSIZE 12 

SBar (1)=30 : SBar(2)= 474 : SBar(3)=286: SBar(4)=490 
FOR i = 1 TO 4: Patt (i)= -30686 :NEXT i 
FILLRECT (VARPTR(SBar(1))),(VARPTR(Patt(1))) 

FRAMERECT (VARPTR(SBar(1) ) ) 

LINE (474, 15)-(474,300) 

'freccia in su 
MOVETO 479,27 

CALL LINE (0,-4):CALL LINE (-3,0):CALL LINE (6,-6) 

CALL LINE (6,6): CALL LINE (-3,0): CALL LINE (0,4) 

CALL LINE (-6,0) 

'freccia in giù 
MOVETO 479,288 

CALL LINE (0,4):CALL LINE (-3,0):CALL LINE (6,6) 

CALL LINE (6,-6): CALL LINE (-3,0): CALL LINE (0,-4) 

CALL LINE (-6,0) 

PICTURE OFF 
BarImage$=PICTURE$ 

PICTURE, BarImage$ 

TopRec = 1 
Y =31 
RETURN 

DrawBox: 'parametro y con uno scarto di 31 (BarTop) e 269 • 

(BarBottom) 

IF TopRec=l THEN Y = BarTop+1 

IF LastRec=TopRec AND TopRec <>1 THEN Y = BarBottom-17 
LINE (475,Y)-(488,Y+15),30,bf 
LINE (475,Y)-(488,Y+15),,b 
RETURN 


EraseBox: 

PICTURE, BarlmageS 
RETURN 

'Menu Esposizione - 

ViewMenu: 

IF Itemld = Sortcode AND NOT Changed THEN RETURN 
IF Itemid>3 THEN SETCURSOR VARPTR(Wateh(1)): MENU 4,Sortcode • 
,1: Sortcode=ItemId: MENU 4,Sortcode,2 
i = Noltems 
Done = False 

IF Sortcode = 4 THEN S = 3 'per nome 

IF Sortcode = 5 THEN S = 2 'per data 

IF Sortcode = 6 THEN S = 1 'per numero 

IF Itemid>3 THEN GOSUB SortMessage 

ON Itemld GOSUB Find,FindNext,Dummy,SortAlpha,SortValue,Sort ♦ 
Value 

IF Itemld>3 THEN WINDOW CLOSE 2: Changed = True 
MENU ON: RETURN 


Find: 

GOSUB FindWindow 

MOVETO 20,25: PRINT "Trova:" 

EDIT FIELD l,Search$, ( 50, 40)-( 150, 55) 
BUTTON 2,1,"Cancella", (20, 70)-(90, 90),1 
NumEf=1 :Ef = 1: ReturnOK = True: INITCURSOR 
WaitModal (NumEf) 

ReturnOK = False 

IF Buttonld = 2 THEN WINDOW CLOSE 2: RETURN 
Search$=UCASE$(EDITS(1)):LastFound=0:Found = 0 
StartFind: 


SETCURSOR(VARPTR(Wateh(1))) 

FOR i = LastFound+1 TO Noltems 
k=Index(i) 

Temp = INSTR (UCASES(Item$(k,3)),SearchS) 

IF TempoO THEN Found = i:i = Noltems 
NEXT i 

IF Found = 0 THEN GOSUB NotFound: RETURN 

IF Itemld =1 THEN WINDOW CLOSE 2 'ultimo elemento chiusur • 
a finestra 

IF Found <TopRec OR Found > TopRec+MaxView-1 THEN Ine = [Joun • 
d-TopRec ELSE Ine = 0 

IF Itemld =1 OR Ine <> 0 THEN GOSUB IncMove 'salta aggior • 
namento se è nella finestra Trova il Prossimo 
Offset = Lineine*(Found-TopRec)+ScrollT+3 
GOSUB ShowSelect : ShowFlag = True 
FlushDialogEvents 


LastFound=Found 


(Continua) 


cava la data dall'orologio di sistema, 
viene inizializzato il menù ed è vi¬ 
sualizzata la finestra d'intestazione. 
Solo quando è avvenuto tutto questo 
gli eventi di menù sono inviati alla 
routine MenuEvent e il menù viene 
attivato. 

Una volta che il codice d’inizializ- 
zazione è stato eseguito MacBanker 
accede al loop principale d'evento, 
Idle, che dirige le sue attività per il 
resto dell'esecuzione del programma. 
Idle svolge diversi compiti necessa¬ 
ri. Il più importante è provvedere un 
posto al programma perchè attenda 
fino a quando si verifica un evento 
di menù. Mentre il programma aspet¬ 
ta Idle controlla in continuazione, 
tramite la funzione DIALOG(O), se 
ci sia un evento d'aggiornamento. 
Un evento d'aggiornamento viene 
causato chiudendo una finestra che si 
sovrappone in parte alla finestra E- 
sposizione (come la finestra di intro¬ 
duzione degli assegni), ed esige che 
sia ridisegnato il testo nella finestra 
Esposizione. 

Oltre a controllare se ci siano even¬ 
ti d'aggiornamento il loop Idle con¬ 
trolla, tramite la funzione MOU- 
SE(0) se ci siano eventi di mouse ab¬ 
bassato (click del mouse). Se il pul¬ 
sante del mouse è premuto il menù 
viene disabilitato e la routine Mouse- 
Hit viene chiamata a gestire una ri¬ 
chiesta di modifica di una voce, a 
cambiare lo stato di spunta di una 
voce o a far scorrere la videata, a se¬ 
conda della posizione del cursore. 

Infine il loop Idle controlla con le 
funzioni MOUSE(l) e MOUSE(2) 
la posizione del cursore. A seconda 
della posizione restituita il cursore 
viene impostato sulla freccia, sull’as¬ 
segno in miniatura o sul segno di 
spunta per indicare il tipo d’azione 
che risulterà da un click. 

Come nella maggioranza dei pro¬ 
grammi del Mac la maggior parte 
del tempo di esecuzione di MacBan¬ 
ker viene impiegata per percorrere ci¬ 
clicamente la routine Idle. Con l'ec¬ 
cezione degli eventi di aggiornamen¬ 
to e degli eventi di mouse abbassa¬ 
to, c’è un solo modo in cui il pro¬ 
gramma può uscire da questo loop: 
attraverso un evento di menù. Que¬ 
sti eventi sono gestiti dalla routine 
MenuEvent, che disabilita ulteriori e- 
venti di menù, determina quale me¬ 
nù sia stato selezionato e fa una dira¬ 
mazione all'opportuna routine di ge¬ 
stione. 

Quando il pulsante del mouse vie¬ 
ne premuto mentre il cursore è nella 
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zona della barra di scorrimento, vie¬ 
ne richiamata la routine DoScroll. 

Scorrimento, 
eventi e archivio 

Se esistono record a sufficienza 
per compiere uno scorrimento la rou¬ 
tine 

determina se il click sia avvenuto al- 
l'intemo del box di scorrimento o 
nel resto della barra di scorrimento. 
Se si è verificato entro il box di scor¬ 
rimento, la routine Drag è chiamata 
a gestire un eventuale trascinamento 
del mouse. Se invece è avvenuto da 
qualche altra parte della barra di scor¬ 
rimento viene richiamata la routine 
Click. 

Click usa la posizione di click per 
determinare se il pulsante del mouse 
sia stato premuto alfinterno delle 
frecce di scorrimento o nella barra 
di scorrimento vera e propria. 

Un click entro le frecce imposta la 
variabile Ine su 1 o su -1, il che fa 
scorrere un solo record nella direzio¬ 
ne appropriata. 

Un click nella barra di scorrimento 
imposta rincremento su 10 o su -10 
per lo scorrimento di 10 record. In 
entrambi i casi viene chiamata a ese¬ 
guire l'effettivo scorrimento la routi¬ 
ne DisplayReview. Questa calcola i 
valori d'indice dei nuovi record da vi¬ 
sualizzare e chiama ScrollOneUp o 
ScrollOneDòwn a far scorrere un so¬ 
lo record. 

Per uno scorrimento di 10 record, 
DisplayReview ridisegna l’intera fi¬ 
nestra Esposizione. 

Se si sta trascinando il mouse nel¬ 
la barra di scorrimento un loop WHI- 
LE nella routine Drag attende che il 
pulsante del mouse venga rilasciato. 
Poi Drag si procura la nuova posi¬ 
zione per il box di scorrimento e 
chiama DisplayReview a visualizza¬ 
re i record all'intemo della finestra. 
In entrambi i casi vengono utilizzate 
le routine EraseBox e DrawBox per 
aggiornare la posizione del box di 
scorrimento nella barra di scorri¬ 
mento. 

Quando si fa click con il mouse 
mentre il cursore è nella zona dei da¬ 
ti degli assegni, MouseHit fa una di¬ 
ramazione a DoChange. In DoChan- 
ge la posizione del click viene tradot¬ 
ta nel numero di record del record se¬ 
lezionato. Se il click è avvenuto nel¬ 
la colonna delle spunte la routine 
ChangePosted è chiamata ad aggior¬ 
nare i saldi e a commutare il segno 
di spunta mettendolo o togliendolo. 




IF LastFound = Noltems THEN MENU 4,2,0 ELSE MENU 4,2,1 
RETURN 

FindNext: 

Found = 0 
GOTO StartFind 

ShowSelect: 

PENMODE 10 'XOR 

Rect(1)=Offset 
Rect(2)=1 

Rect(3)=Offset+Linelnc-l 

Rect(4)=BarLeft-4 

CALL INVERTRECT(VARPTR(Rect(1 )) ) 

RETURN 

NotFound: 

IF Itemld=2 THEN GOSUB FindWindow 

BEEP: IF Itemld-l THEN EDIT FIELD CLOSE 1: BUTTON CLOSE 2 
INITCURSOR 

CLS: MOVETO 10,30: PRINT SearcnS;" non trovato" 

Encircle ButtonT,ButtonL,ButtonB, ButtonR 
NumEf=0: ReturnOK = True 
WaitModal (NumEf) 

ReturnOK = False 

MENU 4,2,0 'disabilita Trova prossimo 
WINDOW CLOSE 2‘.RETURN 

FindWindow: 

WINDOW 2,"", (155, 60)-(355,170),-2 

ButtonL=115 : ButtonT=70 : ButtonR=180 : Buttor.B=90 

BUTTON 1,1,"OK",( ButtonL, ButtonT)-( ButtonR, ButtonB), 1 

Encircle ButtonT,ButtonL,ButtonB,ButtonR 

RETURN 

SortMessage: 

WINDOW 2,"", (180,70)-(325, 100),-2 
PRINT "Sto ordinando..."; 

RETURN 

SortAlpha: 

WHILE NOT Done 

SwapFlag = False 
FOR j = 1 TO i-1 

IF UCASES(Item$(Index(j),S)) > UCASES(Item$(Index(j+ • 
1),S)) THEN SWAP Index(j),Index (j + 1) : SwapFlag=True 
NEXT j 

IF i = 1 OR NOT SwapFlag THEN Done = True 
i = i-1 

WEND 

RETURN 

SortValue: 

WHILE NOT Done 

SwapFlag = False 
FOR j = 1 TO i-1 

IF VAL(ItemS(Index(j),S)) > VAL(Item$(Index(j+1),S) ) • 
THEN SWAP Index(j),Index(j+1):SwapFlag=True 
NEXT j 

IF i * 1 OR NOT SwapFlag THEN Done = True 
i = i-1 

WEND 

RETURN 

' Menu Assegno- 

CheckMenu: 

IF Itemld = 1 THEN GOSUB AddCheck: PutUpdate = True: RETURN 
El$= EDIT$(1) 

E2$= CheckS(Itemld-l, 1) 

E3$= CheckS(Itemld-l, 3) 

E4$= CheckS(Itemld-l, 2) 

GOSUB Translnfo 
INITCURSOR:MENU ON 
RETURN 

AddCheck: 

WINDOW 2, " ", ( 100, 50)- ( 420, 320),-3 
Page = 0 

MOVETO 110, 15: TEXTFACE 1: PRINT "Definisci i nomi": TEX • 
TFACE 0 

MOVETO 10, 30: PRINT "Nome" 

MOVETO 180, 30: PRINT "Nota" 

MOVETO 245, 30: PRINT "Importo" 

PageFlip: 

DX = 5: DY = 40 

FOR i = 1 TO 9 

EDIT FIELD 1+ (i-1) *3,CheckS(i + Page, 1) , ( DX, DY+(i-l)*20 • 
)-( DX+160, DY+ (i-1 ) *20+15) 

EDIT FIELD 2+( i-1)*3 ,CheckS ( i + Page, 2 ), ( DX + 175, DY+(i-l • 
) *20)- ( DX+225, DY+ (i-1)*20 + 15) 

EDIT FIELD 3+(i-1) *3,CheckS ( i + Page,3 ), ( DX + 240, DY+(i-l • 
) *20)- ( DX+300, DY+ (i-1) *20 + 15),1,3 
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NEXT i 

BUTTON 1,1,"OK",( 240, 245)-( 300, 265), 1 
BUTTON 2,1,"Pagina", ( 170, 24 5) -( 230, 265), 1 
NumEf = 27: Ef=l: INITCURSOR 
WaitModal (NumEf) 

FOR i = 1 TO 9 

Check$ (i+Page,1) = EDIT$ (1+ (i — 1 ) *3) 

Check$ (i+Page,2) - EDITS (2+(i-1)*3) 

Check$ (i+Page,3) = EDIT$ (3+(i-1)*3) 

NEXT i 

IF Buttonld = 2 THEN Page = 9+9* (Page=9) : GOTO PageFlip 
WINDOW CLOSE 2: MENU OFF 

GOSUB Menu5and6: MENU 1,3,1: MENU 1,4,1: MENU 1,6,1 
SETCURSOR(VARPTR (Watch (1 ) )) 

Changed = True 
RETURN 

' Menu Memo - 

MemoMenu : 

IF Itemld = 1 THEN GOSUB AddMemo: PutUpdate = True: RETURN 
E4$= Memo$ (Itemld-l) 

EDIT FIELD 4,E4$, ( 75, 100)-( 160, 115) 'memo 
BUTTON 1,1,"Ok", ( 340, 130)- ( 400, 150), 1 'corregge evide • 
nziamento 

INITCURSOR:MENU ON 
RETURN 

AddMemo: 

WINDOW 2,"", (180,50)- (330,320),-3 
Page = 0 
MOVETO 30, 25 
TEXTFACE 1 

PRINT "Definisci Memo" 

TEXTFACE 0 
PageFlip2 : 

DX = 35: DY = 40 
FOR i = 1 TO 9 

EDIT FIELD i, MemoS(i + Page ), ( DX, DY+(i-1)*20) -( DX+85, 

DY+ (i-1) *20+15) 

NEXT i 

BUTTON 1,1,"OK", ( 80, 2 4 5)- ( 140, 265), 1 
BUTTON 2,1,"Pagina", ( 10, 245)- ( 70, 265), 1 
NumEf =9: Ef = 1:INITCURSOR 
WaitModal (NumEf) 

FOR i = 1 TO 9 

MemoS (i+Page) = EDITS(i) 

NEXT i 

IF Buttonld = 2 THEN Page = 9+9* (Page=9) : GOTO PageFlip2 
WINDOW CLOSE 2 

GOSUB Menu5and6: MENU 1,3,1: MENU 1,4,1: MENU 1,6,1 
SETCURSOR (VARPTR (Watch (1))) 

Changed = True 
RETURN 

'Subroutine - 

Transaction: 

'inizia con T= -1 (Assegno), -2 (Edit assegno), 1 (Credito/Deb • 
ito) , 2 (Edit Credito/Debito) 

AddFlag = False: VoidF = False 

IF Noltems = Maxltems AND ABS (T) = 1 THEN GOSUB NoSpace : RE • 

TURN 

MENU 1,0,0: MENU 3,0,0: MENU 4,0,0 

MENU 5,1,0:MENU 6, l,0:State =l:GOSUB Menu5and6 'disabilit • 
a definizioni, abilita scelte 

IF T >0 THEN MENU 5,0,0 'niente nomi per credito/debito 

Another: 

IF ABS(T) =1 THEN E1S = STRS(LastCheckNum!+1): E2S = E3 • 

E4S="":Posted = False 

IF ABS (T) = 2 THEN GOSUB Editlnfo 'legge edit field 
IF T =1 THEN E1S=" " 'niente nomi per credito/debito 
PrintF = False 

IF AddFlag THEN GOSUB Translnfo ELSE GOSUB TransWindow 

MENU ON: INITCURSOR 

Done = False: NumEf=6: Ef = 2 

WHILE NOT Done 

WaitModal (NumEf) 

ON Buttonld GOSUB OK, Cancel,DoPrint,DoPosted,DoDate, DoDa • 
te,DoDate,DoVoid 
WEND 

MENU OFF : SETCURSOR (VARPTR(Wat eh ( 1) )) 

IF Buttonld = 1 AND T = -1 AND NoItems< Maxltems THEN AddFla • 
g = True: GOTO Another 
WINDOW CLOSE 2 

MENU 1,0,1:MENU 3,0,1: MENU 4,0,1: MENU 5,0,1 
MENU 5,1,1:MENU 6,1,1:State =0:GOSUB Menu5and6 
T=0 

RETURN 

OK: 

IF T<0 THEN Temp$=EDIT$(1) :IF LEN(Temp$)>5 THEN BEEP: Ef = 1 • 

(Continua) 


Se il click si è verificato a sinistra 
della colonna delle spunte Editltem è 
chiamata alla finestra di editing. 

Dato che le principali funzioni di 
MacBanker sono pilotate da menù, 
la routine MenuEvent è essenziale 
per il funzionamento del program¬ 
ma. Per evitare di interrompere l’ela- 
borazione di una selezione di menù 
con un seconda selezione l’istruzione 
MENU OFF disabilita il menù. Per 
la maggior parte delle selezioni di 
menù il cursore diventa un'icona d’o¬ 
rologio mentre avviene l'elabora¬ 
zione. 

Durante la routine d'inizializzazio- 
ne viene esaminata la memoria libe¬ 
ra per determinare se il programma 
sta girando su un Mac con oltre 30K 
di memoria libera. In caso affermati¬ 
vo la variabile FatMac viene messa 
su True (vero). Se è disponibile la 
memoria in più MacBanker la utiliz¬ 
za per salvare un'immagine di bit del¬ 
la finestra Esposizione nella matrice 
Refresh prima di gestire un evento 
di menù. Questo rende possibile il 
rapido ripristino della finestra Espo¬ 
sizione dopo il ritorno da un evento 
di menù che non richieda una modifi¬ 
ca delle informazioni esistenti sullo 
schermo. 

Le opzioni Nuovo, Apri e Smetti 
controllano il valore della variabile 
Changed per determinare se c’è la 
possibilità che eseguendo l’operazio¬ 
ne si perdano dati. In caso affermati¬ 
vo una chiamata alla subroutine 
Confirm offre l’opportunità di annul¬ 
lare l’azione. 

Se la routine Confirm restituisce 
OK come vero, l’azione va avanti. 
Per Nuovo questo richiede che si ri¬ 
pristinino l’indice di Item$ pMoItem- 
s), l’ultimo ordine di ordinamento 
(SortCode), il più recente numero 
d’assegno (LastCheckNum!), il saldo 
iniziale (SBalance!), il saldo spunta¬ 
to (PBalance!) e il saldo effettivo 
(Balance!). Anche le matrici Check$ 
e MemoS vengono ripristinate e lo 
schermo viene pulito. 

L’opzione Apri visualizza i file di 
dati di MacBanker nel normale box 
di dialogo dei file. Assegnando un ti¬ 
po di file di BANCA ai file di 
MacBanker (mediante l’istruzione 
NAME AS) è possibile mostrare so¬ 
lo questi file. I dati sono immagazzi¬ 
nati in un file sequenziale, perciò 
per recuperarli viene usata l’istruzio¬ 
ne INPUT #. 

Le opzioni Salva e Salva con il 
nome invertono il procedimento, e u- 
sano l'istruzione PRINT # per man- 
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dare dati a un file. Notate che ricor¬ 
rendo all’opzione Salva prima di spe¬ 
cificare un nome di file si ha come 
risultato la richiesta automatica di 
un nome di file, come se si fosse 
scelta l’opzione Salva con il nome. 

FilePrintSet gestisce la selezione 
deirimpianto della stampante presen¬ 
tando un box di dialogo che contiene 
i presenti valori di tabulazione e di 
linea per la stampa degli assegni. Al¬ 
l’interno della routine FilePrintSet 
viene richiamata la label Print- 
SelLoop quando vengono trovati er¬ 
rori nei valori immessi. Se si fa cli¬ 
ck sul pulsante Cancella la routine, 
CancelPrintSet ripristina i valori ori¬ 
ginali nella matrice Poslnfo e fa u- 
scire dalla routine. Se si fa click sul 
pulsante Prova la routine TestPrint 
mette il flag Prova su vero e chiama 
PrintCheck a emettere dati fittizi. 

La routine FilePrintSet è la prima 
a far uso del sottoprogramma Wait- 
Modal. Questo sottoprogramma è u- 
tilizzato da tutte le routine di box di 
dialogo. Gli vengono passati il nu¬ 
mero dei campi di editing, come pa¬ 
rametro (NumEf), e il primo campo 
di editing da evidenziare, come varia¬ 
bile globale (Ef). WaitModal usa un 
loop WHILE...WEND per attendere 
che sia premuto un pulsante. Mentre 
attende sorveglia DI ALOG(O) per de¬ 
terminare se sia stato premuto il ta¬ 
sto <Tab>. In caso affermativo usa 
il valore di NumEf per spostare il 
cursore sul campo di editing seguen¬ 
te. Quando viene premuto un pulsan¬ 
te toma alla routine di chiamata con 
il numero di pulsante nella variabile 
globale Buttonld. Altre due variabili 
globali, T e Retum-OK, sono usate 
da altre routine per fornire informa¬ 
zioni speciali per WaitModal. Se ne 
parla più avanti. 

FilePrint gestisce la stampa dei 
prospetti di assegni accessibile trami¬ 
te l’opzione Stampa. Per consentire 
la scelta fra diverse opzioni di pro¬ 
spetto viene creato un box di dialo¬ 
go con nove pulsanti e sei campi di 
editing. Anche in questo caso viene 
richiamata una seconda label interna 
alla routine, ErrorLoop, quando ven¬ 
gono trovati errori di input. Quando 
si seleziona uno dei pulsanti di scel¬ 
ta viene deselezionato il pulsante evi¬ 
denziato in precedenza e il punto pie¬ 
no viene messo nel pulsante della 
nuova selezione. Anche qui viene 
impiegata WaitModal per spostarsi 
fra i campi di editing con il tasto 
<Tab> e per restituire alla routine 
chiamante le pressioni dei pulsanti. 


: RETURN 'controlla lunghezza per evitare overflow 

IF T<0 AND (Temp$="" OR VAL(Temp$)<1) THEN BEEP: Ef = 1 : RETURN 
IF T<0 THEN Temp$=EDIT$(2):IF Temp$="" OR Temp$="Credito" OR • 
Temp$="Debito" THEN BEEP: Ef = 2: RETURN 

IF T<0 THEN IF T>0 AND (Ef = 1 OR Ef=2) THEN Ef = 3 

IF T<0 THEN IF T>0 AND (Ef = 5 OR Ef=6) THEN Ef = 3 

IF T<0 THEN City$ = EDIT$ (5): Lett$ = EDIT$ (6) 

IF T<0 AND City$ ="" THEN BEEP: Ef = 5 : RETURN 

IF T<0 AND Lett$ ="" THEN BEEP: Ef = 6: RETURN 

Temp$=EDIT$(3): IF LEN(Temp$)>12 THEN BEEP: Ef=3: RETURN 
IF VAL(Temp$)<=0 OR VAL (Temp$)>lE+09 THEN BEEP: Ef = 3: RET • 

URN 

IF T<0 AND VAL(Temp$)>0 THEN Temp$=EDIT$(2): IF Temp$="** An • 
nullato **" THEN BEEP: Ef = 3 : RETURN 

IF ABS(T)=1 THEN Noltems = Noltems +1: j = Noltems 
GOSUB OKInfo 

IF T=-l THEN LastCheckNum! - VAL(Item$(j,1)) 

IF ABS(T)=1 THEN Index(Noitems) = Noltems 

IF Noltems = 1 THEN MENU 1,3,1: MENU 1,4,1: MENU 1,6,1 'a • 
ttiva opzioni Registra e Stampa 
RETURN 

OKInfo: 

SETCURSOR VARPTR(Watch(1)): MENU OFF 
Changed = True 

IF ABS(T)=2 THEN GOSUB AdjustBal 

IF T<0 THEN Item$(j, 1) = MIDS (STRS(VAL(EDITS(1))), 2) ELSE I • 
tem$(j,1) = "" 

day$=MID$(STRS(day),2)+" "+ MonthS(Month)+STRS (Year) 

GOSUB PackDate 

Item$(j,2) = dayvalueS 'data 

IF T<0 THEN Item$(j, 3) = EDITS(2) 'legge nome per assegni 
IF T = 1 AND CreditF=1 THEN Item$(j,3) =*'Credito" 

IF T = 1 AND CreditF=-l THEN Item$(j,3) ^"Debito" 

IF VoidF THEN Item$(j,3)="**Annullato**" 

IF LEN(ItemS(j,3))>20 THEN ItemS(j,3)=LEFT$(ItemS(j,3),20) 
ItemS(j, 4) = EDITS(3) 'importo 

IF VoidF THEN ItemS(j,4) = "0" 

IF LEN(ItemS(j,4))>13 THEN ItemS(j,4)=LEFT$(ItemS(j,4),13) 
ItemS(j, 5) = EDITS(4) 'nota 

IF LEN(ItemS(j,5))>7 THEN ItemS(j,5)=LEFT$(ItemS ( j,5),7) 

IF VoidF THEN ItemS(j,5) = "" 

IF NOT Posted THEN ItemS(j,4) = "-" + Item$ ( j,4) 

IF Posted THEN PBalance! = PBalance! + CreditF *ABS(VAL(Ite • 
m$(j,4))) 

Balance ! = Balance! + CreditF*ABS(VAL(ItemS(j,4))) 

Done = True 

IF PrintF THEN GOSUB PrintCheck 
RETURN 

TransWindow: 

WINDOW 2,"", ( 40, 105)- ( 465, 265), 2 
MOVETO 10, 130: PRINT "Nota"; 

IF T< 0 THEN MOVETO 6,20: PRINT"Città"; 

IF T<0 THEN MOVETO 6, 100: PRINT "All'ordine"; 

IF T>0 THEN TEXTSIZE 14: TEXTFACE 1:MOVETO 40,80 
IF T>0 AND CreditF=l THEN PRINT "Credito" 

IF T>0 AND CreditF=-l THEN PRINT "Debito" 

MOVETO 282, 20: TEXTFACE 0 :PRINT"Lit."; 

IF T<0 THEN MOVETO 25, 43: PRINT "N. " 

IF T<0 THEN MOVETO 10,70: PRINT "Lire" 

IF T>0 THEN MOVETO 25, 25 

IF T>0 THEN TEXTMODE 1: TEXTFONT 6: TEXTSIZE 18: TEXTFACE 1 
IF T>0 THEN PRINT "MacBanker"; 

TEXTFONT 3: TEXTSIZE 12: TEXTFACE 0 
Translnfo: 

IF T<0 THEN EDIT FIELD 5,(45, 10)-(120,25),1 'Città 

EDIT FIELD 3,E3$,( 310, 8)-( 405, 23),1,3 'Lit 

IF T<0 THEN EDIT FIELD 1,E1$, ( 45, 30)-( 95, 45), 1,3 'nu • 

mero 

IF T<0 THEN EDIT FIELD 6,(50, 60)-(400,75),1 ' Lire 

IF T<0 THEN EDIT FIELD 2,E2S, ( 80, 90)-( 400, 105) 'all • 

'ordine 

EDIT FIELD 4,E4$, ( 50, 120)-( 135, 135) 'nota 
BUTTON 1,1,"Ok",(350,140)-(410,160), 1 
BUTTON 2,1,"Cancella", ( 270, 140)-( 330, 160), 1 
IF T<0 THEN BUTTON 3,(PrintF*-l)+1,"Stampa",( 35, 140)-( 12 • 
0, 160), 2 

BUTTON 4,(Posted*-l)+1,"Spuntato",( 300, 120)-( 385, 135),2 

BUTTON 5,1,MonthS(Month),( 180, 8)-( 220, 25), 1 

BUTTON 6,1,STRS (day), ( 145, 8)-( 170, 25), 1 

BUTTON 7,1,STRS (Year), ( 230, 8)-( 275, 25), 1 

IF ABS(T)=2 THEN BUTTON 8,1,"Annui la", (180,140)-(240,160) , 1 

RETURN 

Cancel: 

Done = True 
RETURN 

PrintCheck: 

SETCURSOR(VARPTR(Watch(1) ) ) 

NextLine= 0 
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IF Trial THEN Info$ (1)«"12321" ELSE Info$(l) = Item$(j,l) 

IF Trial THEN Info$(2)="l Gennaio 1989" ELSE dayvalue$= Item • 
$(j,2):GOSUB unpackdate: Info$(2) =day$ 

IF Trial THEN Info$(5)="Applicando" ELSE Info$(5) = Item$(j,3) 
IF Trial THEN Info$(3)="900000" ELSE Info$(3) = STR$(ABS(VAL • 
(ltem$(j,4)))) 

IF Trial THEN Town$="Milano" ELSE Town$ = City$ 

IF Trial THEN Lit$="NOVECENTOMILA" ELSE Lit$=Lett$ 

FOR i = 1 TO 5 

WHILE NextLine < Poslnfo(i,2) 

LPRINT: NextLine=NextLine+1 

WEND 

LPRINT TAB(Poslnfo(i, 3)); 

IF Poslnfo (i,1) = 3 THEN LPRINT USING Dollar$;ABS(VAL(In • 
fo$ (Poslnfo(i,l)))); 

IF Poslnfo(i,1) = 1 THEN LPRINT Town$; 

IF i<4 THEN IF Poslnfo (i, 2) oposlnfo (i + l # 2) THEN LPRINT • 
'non sulla stessa linea 

IF Poslnfo (i,l) = 5 THEN LPRINT Info$ (Poslnfo(i,1)); 

IF Poslnfo ( i, 1) = 4 THEN LPRINT Lit$; 

IF Poslnfo (i,l) = 2 THEN LPRINT Info$ (Poslnfo(i,1)); 

NEXT 

WHILE NextLine<ChkTotalLines 
LPRINT:NextLine=NextLine+l 

WEND 

INITCURSOR 

RETURN 

DoPosted: 

Posted = NOT Posted 
BUTTON 4, (Posted*-l)+1 
RETURN 

DoPrint: 

PrintF=NOT PrintF 
BUTTON 3, (PrintF*-l)+l 
RETURN 


DoDate: 

OptionKey = PEEK(379): IF OptionKey=4 OR OptionKey=6 THEN Da • 
telnc=-l ELSE Datelnc=l 

IF Buttonld = 5 THEN Month= Month+Datelnc 
IF Month = 13 THEN Month * 1 
IF Month = 0 THEN Month = 12 
IF Buttonld = 6 THEN day = day +Datelnc 
IF day>DaysInMonth(Month) THEN day = 1 
IF day=0 THEN day=DaysInMonth (Month) 

IF Buttonld = 7 THEN Year = Year +Datelnc 
IF Year>MaxYear THEN Year = MinYear 
IF Year<MinYear THEN Year = MaxYear 

IF Buttonld = 5 THEN BUTTON 5,l,Month$(Month),( 180, 8)-( • 

220, 25), 1 

IF Buttonld = 6 THEN BUTTON 6,1,STR$(day),( 145, 8)-( 170, • 


25), 1 

IF Buttonld = 7 THEN BUTTON 7,1,STR$(Year),( 230, 8)-( 275, • 
25), 1 
RETURN 


DoVoid: 

IF T = -2 THEN GOSUB VoidCheck ELSE GOSUB VoidCredit 

Done = True: Changed =True 

RETURN 


VoidCheck: 

VoidF = True 
GOSUB OK 
RETURN 

VoidCredit: 

GOSUB AdjustBal 
SETCURSOR(VARPTR(Watch(1)) ) 

FOR d = 1 TO Noltems 

IF Index(d)=NoItems THEN IndexLast = d 
IF Index(d)=j THEN IndexDel = d 

NEXT 

FOR d = 1 TO 5 

Item$(j,d) = Item$(Index(IndexLast),d) 

NEXT 

Temp = Index (IndexDel) 

FOR d = IndexDel TO Noltems-l 
Index (d)=Index(d+1) 

NEXT 

IF IndexDelcindexLast THEN Index(IndexLast-1)=Temp 
IF IndexDel>IndexLast THEN Index(IndexLast)=Temp 
NoItems=NoItems-l 
RETURN 


Update: 

IF FatMac AND PutUpdate THEN PUT (0,0)-(490,300),Refresh,OR • 
: PutUpdate = False: MENU ON : RETURN 
SETCURSOR(VARPTR(Watch(1)) ) 

inc=o (Continua) 


Quando si preme il pulsante OK 
vengono letti i criteri di prospetto 
nei campi di editing del pulsante di 
scelta che è stato selezionato. Se si 
sta preparando il prospetto sulla ba¬ 
se della data la routine PackDate è 
chiamata ad analizzare le varie forme 
disponibili di immissione della data 
e a restituire una forma numerica del¬ 
la data consistente in quattro cifre 
per l’anno, due per il mese e due per 
il giorno. 

Poi FilePrint apre un canale verso 
la stampante come dispositivo #2 
con l’istruzione OPEN "LPT1: DIRE¬ 
CT”, ripristina l’impostazione dell’I- 
magewriter alla sommità del modu¬ 
lo, imposta su 10 il margine sini¬ 
stro e richiama la routine Header. 
Header stampa il numero di pagina, 
la data del prospetto, i criteri di sele¬ 
zione che si stanno utilizzando e le 
intestazioni di colonna. Quindi File¬ 
Print prosegue usando la matrice In¬ 
dex per percorrere ciclicamente tutti 
i dati degli assegni. 

A seconda della natura dei criteri 
scelti ogni voce viene testata da una 
di queste quattro routine: PA11, PE- 
quals, PRange o PPosted. Queste 
routine determinano se una voce deb¬ 
ba essere stampata, e in caso affer¬ 
mativo impostano la variabile 
PFlag su True. Se PFlag è True la 
voce viene stampata. Se PFlag è Fal¬ 
se il loop passa alla voce seguente 
saltando a FilePrintNext. 

Ogni volta che viene stampata una 
voce, viene incrementata la variabile 
Lines. Se Lines raggiunge 56 viene 
incrementato il numero di pagina 
(Page), viene emesso un carattere di 
avanzamento modulo, e viene stam¬ 
pata un’intestazione con il nuovo nu¬ 
mero di pagina. Quando sono state 
stampate tutte le voci selezionate 
vengono stampati i totali delle co¬ 
lonne credito e debito, e il saldo 
spuntato nonché quello effettivo. 

Si può usare <Command> per can¬ 
cellare il procedimento di stampa. 
Questo si fa ridirigendo la gestione 
di ONBREAK su PrintCancel. Quan¬ 
do la stampa è completa la finestra 
di prompt viene chiusa e la gestione 
di ON BREAK viene ridiretta su 
BreakTrap. 

Conto, esposizione, 
assegno e memo 

Le prime tre voci del menù Con¬ 
to, Nuovo assegno, Nuovo credito e 
Nuovo debito, utilizzano tutte la rou¬ 
tine Transaction. Tuttavia prima di 
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lo applico, 
tu applichi? 


La pubblicità su 
Applicando è informazione. 
Chi legge Applicando 
possiede un computer 
Apple o sta per cambiarlo 
con un Apple//e. 

O con un Apple//c. 

O con un Macintosh. 
Oppure non lo cambia 
affatto, se lo tiene stretto, 
ma vuol sapere dove, 
come e cosa fa 
veramente per lui. 

Una nuova marca 
di dischetti? 

Una nuova 
Software House? 

Una nuova stampante 
a basso prezzo? 

Per chi applica, 
è importante saperlo. 
Subito. 


STUDIOSFERA 
sas di Berardo & C 
1 ' Strada 24 - Milano S Fe 
lice - 20090 Segrate MI ■ te 
letono 02/7533939 - 7532151 
telex 350132 MACORM -C F e 
P Iva 0701483015 7-CCIAA 
Milano 1132820 - Tribunale 
Milano Reg Soc n 64 797 
Banca Popolare di 
Mi lano Ag. 17 


Per la pubblicità 
studi'osfem sas 

telefono 02/ 7533939 - 7532151 


richiamare Transaction esse impo¬ 
stano i valori delle variabili T e 
CreditF per indicare il tipo di opera¬ 
zione in corso. T viene impostata su 
-1 per indicare l'introduzione di un 
assegno e su 1 per indicare un'intro¬ 
duzione di credito o di debito. 

CreditF viene usata come moltipli¬ 
catore per ritoccare i totali di saldo, 
e perciò viene messa su -1 per una 
voce di assegno o di debito e su 1 
per una voce di credito. 

T viene utilizzata anche per indica¬ 
re che si sta modificando una voce. 
Per quanto l'editing delle voci venga 
avviato facendo click nella finestra E- 
sposizione, e non usando il menù 
Conto, la logica di Transaction e del¬ 
le relative subroutine è più facile da 
seguire se esaminiamo simultanea¬ 
mente l'introduzione e la modifica. 


Come indicato prima, la routine 
DoChange richiama Editltem quando 
si fa click con il mouse su una voce 
della finestra Esposizione. Ediltem 
imposta il valore di CreditF e impo¬ 
sta T su -2 per indicare che si sta 
modificando un assegno o su 2 per 
indicare che si sta modificando una 
voce di credito o di debito. Poi ri¬ 
chiama Transaction. 

Transaction anzitutto ripristina i 
menù per abilitare le macro di asse¬ 
gno e di promemoria e per disabilita¬ 
re tutte le altre opzioni di menù tran¬ 
ne il menù di editing. Se l'operazio¬ 
ne è un'introduzione di credito o di 
debito viene disabilitato anche il me¬ 
nù Assegno. Se il valore assoluto di 
Tèi, l'operazione è un'introduzione 
e non una modifica, e le variabili u- 
sate per visualizzare il nome, l'im- 


GOSUB DisplayReview 
GOSUB EraseBox 
GOSUB DrawBox 
MENU ON 
RETURN 


PackDate: 'converte Day$ (12 Genl986) in DayValue$ (es. 01121 • 

986) 

N=0:ErrFlag = Fa 1 se :Temp$=UCASE$(day$) 

IF LEN(Temp$)<6 THEN ErrFlag = True: RETURN 

Deliml= INSTR(Temp$,"/"):IF Deliml>0 THEN Delim2 = INSTR(Del • 
imi+1,Temp$,"/") 

IF Deliml =0 THEN Deliml = INSTR(Temp$,:IF Deliml>0 THEN • 
Delim2 = INSTR(Deliml+1,Temp$,"-") 

IF Deliml = 0 THEN Deliml=INSTR(Temp$," "): IF Deliml>0 THEN • 
Delim2 = INSTR(Deliml+1,TempS," ") 

IF Deliml = 0 OR Delim2 = 0 OR Delim2-Deliml>5 OR LEN(TempS) • 
-Delim2 > 5 THEN ErrFlag = True:RETURN 
FOR m = 1 TO 12 

IF MIDS(TempS,De1imi+1,3) = UCASES(MonthS(m)) THEN N= m 
NEXT m 

IF N<1 AND Deliml <4 THEN N= VAL(MIDS(TempS,Deliml+1,2)) 

IF N<1 OR N>12 THEN ErrFlag = True : RETURN 

IF N<10 THEN dayvalue$="0"+MIDS(STRS(N),2) ELSE dayvalue$=MI • 
D$(STRS(N),2) 'mese 

Temp = VAL(LEFTS(TempS,Deliml)) 

IF Temp<l OR Temp > DaysInMonth(N) THEN ErrFlag = True:RETURN 
IF TempclO THEN dayvalue$=dayvalue$+"0" +MIDS(STRS(Temp),2) 
ELSE dayvalue$=dayvalue$+MID$(STRS(Temp),2) 'giorno 
Temp =VAL(MIDS(TempS, Delim2 + 1)) 'giorno 
IF TempclOO THEN Temp = Temp+1900 

IF Temp<MinYear OR Temp>MaxYear THEN ErrFlag = True: RETURN 
dayvalue$=dayvalue$+MID$(STRS(Temp),2) 

dayvalue$=MID$(dayvalueS,5)+LEFTS(dayvalueS,4) 'prima l'anno 
RETURN 

unpackdate: 'converte DayValueS in DayS 

day$=MID$ (STRS(VAL(RIGHTS(dayvalueS,2))),2)+" "+ MonthS(VAL( • 
MIDS (dayvalueS,5,2)))+" "+LEFTS (dayvalue$,4) 

RETURN 

BreakTrap: 

RETURN 

PrintCancel: 

CLOSE 2 

WINDOW CLOSE 2 
RETURN Idle 

Dummy: 'per elementi vuoti dei menu 

RETURN 

Confirm: 

WINDOW 2,(155, 60)-(3 55,170),-2 

MOVETO 20,25: PRINT "Registro i dati attuali?" 

BUTTON 1,1,"Si", (115, 45)- (180,65),1 
BUTTON 2,1,"No", (115, 70)- (180,90),1 
BUTTON 3,1,"Cancella", (20,70)- (90,90),1 
NumEf=0 

WaitModal (NumEf) 


100 







porto, il promemoria e lo stato di 
spunta (E2$, E3$, E4$ e Spuntato) 
vengono pulite. Se la voce è un asse¬ 
gno il precedente numero di assegno 
viene incrementato prima dell'asse¬ 
gnazione di El$. Se invece si sta 
modificando una voce (il che è indi¬ 
cato da un valore assoluto di 2 per 
T) la routine Editlnfo viene chiama¬ 
ta ad assegnare i valori di queste va¬ 
riabili di display. 

Infine il valore di PrintF viene 
messo su False per indicare che la 
voce non deve essere inviata alla 
stampante, e viene chiamata la 
subroutine TransWindow. Trans- 
Window predispone il box di dialo¬ 
go che comprende i campi di editing 
e i pulsanti appropriati per l'opera¬ 
zione corrente. Se la voce è un asse¬ 
gno tutti i campi di editing sono vi¬ 


sualizzati e vengono visualizzati sia 
il pulsante Stampa sia quello Spun¬ 
tato. Se la voce è un credito o un de¬ 
bito viene stampata invece del cam¬ 
po del nome la parola "Credito" o 
"Debito", e il campo del numero 
non è visualizzato. Se si sta modifi¬ 
cando la voce viene visualizzato un 
pulsante Annulla in aggiunta ai pul¬ 
santi Cancella e OK. 

Transaction impiega WaitModal 
per consentire l'introduzione dei dati 
nei vari campi di editing e per resti¬ 
tuire le pressioni di pulsante, che so¬ 
no gestite dalle routine OK, Cancel, 
DoPrint, DoPosted, DoDate e Do- 
Void. Di queste solo OK e Cancel 
impostano il valore di Done su vero 
per uscire dal loop WaitModal. 

Se viene premuto il pulsante OK i 
dati che sono stati introdotti vengo- 


WINDOW CLOSE 2 

IF Buttonld = 1 THEN OK = True : GOSUB FileSave: IF N$="" TH • 
EN OK « False 


IF Buttonld 

= 2 THEN OK=True 


IF Buttonld 

= 3 THEN OK = False 


RETURN 

InitMenu: 

MENU 1,0,1, 

"Archivio" 


MENU 1,1,1, 

"Nuovo" 


MENU 1,2,1, 

"Apri..." 


MENU 1,3,0, 

"Registra" 


MENU 1,4,0, 

"Registra col nome..." 


MENU 1,5,1, 

"Formato di stampa" 


MENU 1,6,0, 

"Stampa..." 


MENU 1,7,1, 

"Esci" 


' MENU 2 — 

il menu di edit è controllato dal 

sistema operat 

ivo 

MENU 3,0,1, 

"Conto" 


MENU 3,1,1, 

"Nuovo assegno..." 


MENU 3,2,1, 

"Nuovo credito" 


MENU 3,3,1, 

"Nuovo debito" 


MENU 3,4,1, 

"Saldo iniziale..." 


MENU 3,5,1, 

"Saldo attuale..." 


MENU 4,0,0, 

"Esposizione" 


MENU 4,1,1, 

"Trova..." 


MENU 4,2,0, 

"Trova prossimo" 'inizialmente 

di sabilitato 

MENU 4,3,0, 



MENU 4,4,1, 

"Ordina per Nome" 


MENU 4,5,1, 

"Ordina per Data" 


MENU 4,6,1, 

"Ordina per Numero" 


MENU 5,0,1, 

"Assegni" 


MENU 5,1,1, 

"Definisci Assegni..." 


MENU 6,0,1, 

"Memo" 


MENU 6,1,1, 

"Definisci Memo..." 


State =0 

Menu5and6: 

FOR i = 1 

TO MaxChecks 



IF Check$ (i, 1) =" " THEN MENU 5, i + 1, 0, ,, - H ELSE MENU 5,1 + 1, • 

State, Check$(i,1) 

NEXT i 

FOR i = 1 TO MaxMemos 

IF Memo$(i)THEN MENU 6,i+1,0,ELSE MENU 6,i+1,Sta • 
te, Memo$(i) 

NEXT i 
RETURN 

' Subprogrammi - 

SUB FlushDialogEvents STATIC 
WHILE DIALOG(O) <> 0 
WEND 
END SUB 

sub WaitModal (NumEf) static (Continua) 



viappicini 


•Dai vostri file di 
testo otteniamo 
velocemente la 
fotocomposizione 

•Anche da 
Macintosh® con 
tecnologia laser 

•Altrettanto 
rapidamente 
provvediamo alla 
stampa dei vostri 
manuali, libri, 
cataloghi, listini, 
ecc. 


viappicini 

Tecnologie d’avanguardia 
per stampati di qualità e grandi tirature 


Bruno Viappiani spa 

Milano, Viale Argonne 28 
tei. 02/73.84.341 
telex 325421 VI APPI-I 
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Teo Rusconi ha appena 
sfatato la leggenda 
secondo la quale i floppy disc 
sono tutti uguali 

Difatti sembrano tutti uguali finche non 
si osserva con attenzione il jacket. Qui 
termina l’uguaglianza. 

JLa maggior parte delle società costruttrici 
sigillano i dischi un punto qui, un punto là, 
lasciando parte dei lembi non sigillati. 

Prima o poi ai lembi accadono cose 
naturalissime: si gonfiano, si curvano, si 
raggrinziscono... in poche parole si aprono. 


Con penne, matite, unghie persino un 
ragazzino di quattro anni come Teo può 
infilarsi in quegli spazi aperti. 

Naturalmente è un danno enorme perchè 
se si inserisce qualcosa di molle e slabbrato 
nel disc-drive quest’ultimo può incepparsi; 
si può rovinare la testina e si possono 
perdere i dati. Questo può accadere con gli 
abituali sistemi di chiusura ma non con i 
dischetti Memorex che usa un 
procedimento esclusivo chiamato 
“Solid-Seam Bonding”. 

Con questo sistema ogni singolo 
millimetro quadrato dei lembi di tutti i 
dischi Memorex viene sigillato 
ermeticamente, rendendoli più rigidi e più 
resistenti. 


un sistema che consente al floppy disc 
di sostenere ogni assalto, che impedisce alla 
testina di rovinarsi e ai dati di andare perduti. 

Il che sta a dimostrare che un floppy disc 
Memorex non è uguale a tutti gli altri: è 
migliore. E il sistema di saldatura è solo un 
esempio della cura infinita con cui viene 
prodotto ogni floppy disc Memorex; sia 
esso da 8”, da 5 1/4” o il nuovo 3 1/2”. 
Questa estrema accuratezza dà la garanzia 
che ogni disco Memorex è al 100% perfetto. 

La prossima volta che acquistate un 
floppy disc - o qualche centinaio 
- ricordate: non tutti i dischetti 
sono uguali... 

Memorex vi mette al 
riparo da qualsiasi 
inconveniente. 




GLI ALTRI DISCHETTI 

chiusi un punto qui, 
un punto là lasciano 
gran parte dei 
lembi aperti. 


BURROUGHS-MEMOREX S.P.A. 
Divisione Computer Media 
Via Ciro Menotti, 14 Tel. 02/718551 
20129 MILANO MI 


è importante scegli 



A Burroughs Company 





















Concessionari 
Memorex 
Computer Media 


TORINO 

COMPUTER MEDIA 

Via Susa, 37 - Tel. 011/442261/441027 

BIELLA (VC) 

CO. FIN 

Via Bengasi, 2 - Tel. 015/30237 

CUNEO-VIOLA 

B&C 

Via Martini, 11/1 - Tel. 0174/73220 

GENOVA 

B&C 

Via Col di Lana, 5/19 - Tel. 010/418719 

MILANO 

LOGOTEC 

Via Pacini, 72 - Tel. 02/292677/235539 

MILANO 

GASP! 

Via Pecchio, 1 - Tel. 02/225806 

MONZA (MI) 

COMPUTER CITY 

Via San Gottardo, 84 - Tel. 039/326293 

GALLARATE (VA) 

EMMEQUATTRO 

Via Pegoraro, 18 - Tel. 0331/795248 

VIADANA (MN) 

PAU 

Via M. D'Azeglio, 29 - Tel. 0375/81874 

CONEGLIANO VENETO (TV) 

DAL CIN ELIO 

Via Manin, 59/A - Tel. 0438/63144 

PARMA 

CHI-BO 

Via Ravasini, 7 - Tel. 0521/995332 

BOLOGNA 

TRADER LINE 

Via Morgagni, 8 - Tel. 051/271672 

SAN LEONARDO (FO) 

IL CENTRO EDP 

Via Armellino, 19 - Tel. 0543/728091 

LIVORNO 

INFORMATICA 

Via Scali degli Olandesi, 54 - Tel. 0586/30022 

PERUGIA 

R2 IN FORM 

Via XX Settembre, 70 - Tel. 075/61000-72266 

ANCONA 

PRISMA 

Corso Carlo Alberto, 12 - Tel. 071/899262 

PESCARA 

SEFIN 

Via Parini, 21 - Tel. 085/23632 

ROMA 

MEMORY LINE 

Via Nomentana, 224 - Tel. 06/8320040-8320434 

SALERNO 

SYNCRONDATA 

Via Paolo de' Granita, 14 - Tel. 089/241410 

BARI 

NICOLA ROBERTO CAVALLO 
Via Durazzo, 17 - Tel. 080/330499 

VIBO VALENTIA (CZ) 

Via Pio XII, 14 - Tel. 096/343609 

SASSARI 

O.R.E. 

Zona Industriale Predda Niedda 
Tel. 079/260477 

SARDEGNA 

R & R ELECTRONICS 

Via Fratelli Canepa, 94 - Serra Ricco (GE) 

Tel. 010/750729-750866 

PALERMO 

BYTE'S HOUSE g 

Via Vann’Antò, 28-Tel. 091/291154 à 


è importante scegli 

MEMOREX 

A Burroughs Company 


no controllati per la validità dalla 
routine OK. I dati non validi causa¬ 
no un bip e un ritorno al loop Wait- 
Modal, con la variabile EF imposta¬ 
ta sul campo di editing irregolare in 
modo che il cursore compaia in quel 
campo. Se i dati sono validi No- 
Items viene incrementato e la su¬ 
broutine OKInfo è chiamata o ad ag¬ 
giungere la voce al data base o ad ag¬ 
giornare la voce. Dopo l’aggiorna- 
mento dei saldi viene controllato il 
flag PrintF. Se è vero la routine 
PrintCheck viene chiamata a inviare 
i dati correnti alla stampante in con¬ 
formità con il formato definito nella 
matrice Poslnfo. 

Infine il flag Done viene messo su 
vero e OKInfo toma a OK. Se la vo¬ 
ce è un assegno il valore di Last- 
NumCheck viene reimpostato sul 


numero dell’assegno appena introdot¬ 
to. Se è stata introdotta una nuova 
voce viene aggiunto alla matrice 
Index un nuovo elemento e gli viene 
dato il valore corrente di Noltems, 
che lo mette ultimo nella lista di 
Index. La prima volta che viene per¬ 
corsa questa sequenza vengono abili¬ 
tate le opzioni Salva e Stampa del 
menù Archivio. 

Per rendere possibile l’introduzio¬ 
ne di una sequenza di assegni la pres¬ 
sione del pulsante OK fa sì che il 
valore di AddFlag sia messo su ve¬ 
ro, e Transaction fa una diramazione 
alla label interna, Another. 

Al successivo passaggio attraverso 
Transaction il programma, anziché 
fare la diramazione a TransWindow 
per ridisegnare la finestra degli asse¬ 
gni, la fa a Translnfo. Si tratta di u- 


SHARED Buttonici, Ef, T, Ret urnOK 

Done = 0 'questo valore è locale per WaitModal 

IF T>0 AND (Ef = 1 OR Ef-2) THEN Ef = 3 
IF T>0 AND (Ef = 5 OR Ef=6) THEN Ef » 3 

IF NumEf >0 THEN EDIT FIELD Ef 'seleziona edit field 

WHILE NOT Done 


EventType = DIALOG(O) 


IF EventType = 
IF EventType = 
IF EventType = 
IF T>0 AND (Ef 
IF T>0 AND (Ef 
IF EventType = 
IF EventType = 
'tasto Return 


THEN Ef = DIALOG(2) 

THEN Buttonld = DIALOG(l): Done = -1 
THEN Ef= (Ef MOD NumEf)+1 
1 OR Ef=2) THEN Ef = 3 
5 OR Ef=6) THEN Ef = 3 
THEN EDIT FIELD Ef 'Tab Key 
AND ReturnOK THEN ButtonId=l: Done : 


WEND 
END SUB 

RUN 

SUB GetDate STATIC 

SHARED Month,day,Year,Now$ 
Now$=DATE$ 

Month = VAL(LEFTS(Now$,2)) 
day = VAL(MID$(Now$,4,2)) 
Year = VAL(MIDS(Now$,7)) 


END SUB 


■1 • 


SUB Monaco9 STATIC 

TEXTFONT 4: TEXTMODE 1: TEXTSIZE 9 'Monaco 9 punti 
END SUB 

SUB Geneval2 STATIC 

TEXTFONT 3: TEXTSIZE 12 'Geneval2 punti 
END SUB 


SUB Encircle (Top,Left,Bottom,Right) STATIC 
PENSIZE 2,2 
margin = 4 

Rect(l) = Top-margin 
Rect (2) =Left-margin 
Rect(3) =Bottom+margin 
Rect (4) = Right+margin 
r=20 

CALL FRAMEROUNDRECT(VARPTR(Rect(1)),r,r) 
PENNORMAL 
END SUB 


SUB TitleScreen STATIC 'Schermo d'apertura 

WINDOW 4,"", ( 105, 60)-( 400, 280), -2 
TEXTFACE 1: TEXTFONT 6 

TEXTSIZE 18 : MOVETO 100,30: PRINT"MacBanker": TEXTFONT 3: T • 
EXTSIZE 12 

MOVETO 83, 60 :PRINT"di David Krathwohl" 

MOVETO 53, 90 :PRINT"Copyright 1986 by Applicando" 

MOVETO 83,110:PRINT"& MicroSPARC, Ine." 

MOVETO 53, 150 : PRI^NT"Fai click su OK per iniziare." 

BUTTON 1,1,"OK", (120, 175)-(180, 200), 1 
INITCURSOR 

WHILE DIALOG(0)<>1: WEND 'attende OK 
TEXTFACE(0) 

WINDOW CLOSE 4 
END SUB 
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Scelto selezione 

(§) Stampa tutti i dati 


O Solo se la nota è [ 


o Dalla data |lOApr1986 

] Q |15 Gen 1987 | 

O Dal numero | | 9 1 

O Solo se il nome é 

O 1 ualori spuntati 

O ■ ualori non spuntati 

(Cancella) [ 0K ) 


Figura 6. Nozioni di prospetto. 


na label interna che permette di salta¬ 
re l’allestimento della finestra. 

Se si fa click sul pulsante Cancel¬ 
la la routine Cancel non fa che impo¬ 
stare Done uguale a vero per uscire 
dal loop WaitModal, e toma a Tran¬ 
saction. La finestra viene chiusa, vie¬ 
ne abilitato il menù e l'esecuzione 
torna al loop Idle. 

Se si fa click sul pulsante Stampa 
DoPrint commuta il box degli asse¬ 
gni. DoPrint non stampa l'assegno, 
ma imposta il flag DoPrint in modo 
che l'assegno venga stampato quan¬ 
do tutti i dati saranno stati accettati. 

Analogamente DoPosted commuta 

10 stato di spunta di una voce e ag¬ 
giorna il box degli assegni nel pul¬ 
sante spuntato. Pur non cambiando 
alcun'altra informazione, imposta un 
flag, Posted, che sarà utilizzato per 
l'esatto aggiornamento del saldo 
spuntato allorché i dati dell'assegno 
saranno stati accettati. 

Quando viene premuto uno qualsia¬ 
si dei tre pulsanti della data viene ri¬ 
chiamata la routine DoDate. Essa in¬ 
crementa o decrementa (se si preme 

11 tasto <Option>) il valore della va¬ 
riabile (Mese, Giorno o Anno) del 
pulsante premuto e aggiorna le label 


di pulsante. Infine premendo il pul¬ 
sante Annulla si richiama la routine 
DoVoid. DoVoid ritocca i saldi per 
annullare la voce e poi chiama o 
VoidCheck o VoidCredit, a seconda 
del valore di T. Gli assegni annullati 
sono tenuti nel data base con impor¬ 
to zero e con il nome ** Annulla¬ 
to**, mentre le voci annullate di cre¬ 
dito o di debito sono tolte dal data 
base. 

Le altre due voci del menù Conto, 
Imposta saldo iniziale e Mostra sal¬ 
di, usano semplici box di dialogo 
per ottenere un nuovo valore per il 
saldo iniziale o per visualizzare i va¬ 
lori dei saldi iniziale, effettivo e 
spuntato. 

Le prime due voci del menù Espo¬ 
sizione, Trova e Trova seguente, usa¬ 
no entrambe la subroutine Find per 
esplorare il data base. Quando si sce¬ 
glie l’opzione Trova viene aperto un 
box di dialogo per ottenere la stringa 
di ricerca. Si noti che prima della 
chiamata a WaitModal viene impo¬ 
stata su True la variabile RetumOK. 
Si tratta di una variabile globale che 
permette a WaitModal di restituire 
un Buttonld di uno quando si preme 
il tasto <Retum>. 


Mi 1 ano 


2 Ago 1986 


Trecentocìnquantamila 
Editronìca srl 


La ricerca effettiva viene eseguita 
con inizio dalla label interna, Start- 
Find. La stringa di ricerca è converti¬ 
ta in maiuscole dalla funzione UC A- 
SE$, e la ricerca usa la funzione IN- 
STR per cercare qualsiasi presenza 
della stringa di ricerca nel campo del 
nome di ciascun assegno. Se non si 
trova alcuna corrispondenza la routi¬ 
ne NotFound è chiamata a riferire i 
risultati in un box di dialogo. Se la 
ricerca ha esito positivo ShowSelect 
è chiamata a evidenziare la voce tro¬ 
vata. 

Questo viene fatto calcolando gli 
angoli del rettangolo che racchiude 
la voce, impostando il modo penna 
su XOR (OR esclusivo) e usando la 
chiamata INVERTRECT della 
ROM per invertire la voce. 

Quando la voce è stata evidenziata 
il flag ShowFlag viene impostato 
su True. Questo flag viene controlla¬ 
to al successivo evento di mouse ab¬ 
bassato (in MouseHit o in Menu- 
Event) per togliere l'evidenziamento 
della voce prima di gestire l'evento 
successivo. L'opzione Trova seguen¬ 
te è gestita da StartFind, e i risultati 
vengono riferiti in maniera identica. 

MacBanker offre tre opzioni di or¬ 
dinamento tramite il menù Esposi¬ 
zione: ordinamento per nome, ordina¬ 
mento per data e ordinamento per nu¬ 
mero. Per tutte e tre le opzioni vie¬ 
ne usato un ordinamento a bolle, ma 
le routine che fanno il lavoro, a se¬ 
conda del tipo di ordinamento scelto, 
sono due, SortAlpha e SortValue. 
Per accelerare l'ordinamento sono 
scambiati solo i valori dei puntatori 
nella matrice Index. Questo evita la 
necessità di scambiare tutti i cinque 
campi di ciascuna voce. Quando è 
stato eseguito un ordinamento i dati 
vengono visualizzati nel nuovo ordi¬ 
ne e l'ordine corrente viene mostrato 
con un segno di spunta nel menù E- 
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sposizione. I menù Assegno e Me¬ 
mo hanno un’identica struttura. La 
prima voce di ciascun menù vi per¬ 
mette di definire le altre voci del me¬ 
nù. L’opzione Definisci assegni usa 
la routine AddCheck per predisporre 
un box di dialogo con tre colonne e 
nove righe per l’introduzione dei no¬ 
mi degli assegni, dei promemoria e 
degli importi. Facendo click sul pul¬ 
sante Pagina si fa sì che il contenu¬ 
to dei campi di editing sia letto nella 
prima metà della matrice Check$. 
Ai campi di editing sono poi asse¬ 
gnati i valori nella seconda metà del¬ 
la matrice. Quando si fa click su 
OK, il menù viene aggiornato e la 
routine toma a Idle. L’opzione Defi¬ 
nisci memo funziona in maniera i- 
dentica, con la differenza che è richie¬ 
sta una sola colonna di campi di edi¬ 
ting. Quando la finestra di introdu¬ 
zione dei dati per gli assegni e le vo¬ 
ci di credito/debito è aperta, i soli 
menù attivi sono il menù Edit e le 
voci per gli assegni e i promemoria 
presentemente definiti nei menù As¬ 
segno e Memo. Selezionando una 
voce nel menù Assegno o in quello 
Memo si fa sì che le informazioni 
nell'appropriata variabile di campo 
di editing siano assegnate al campo, 
o ai campi, della voce scelta. 

Possibili modifiche 
al programma 

MacBanker presenta caratteristiche 
duttili e potenti. La sua struttura mo¬ 
dulare permette di modificarlo facil¬ 
mente per far fronte a particolari ne¬ 
cessità. Con una modifica abbastan¬ 
za semplice potreste stampare pro¬ 
spetti sullo schermo o sulla stam¬ 
pante selezionando un box di asse¬ 
gni nel box di dialogo della selezio¬ 
ne di stampa. Modificando l'opzio¬ 
ne Nuovo sareste in grado di conti¬ 
nuare un file di assegni conservando 
i saldi, e gli assegni e promemoria 
definiti in precedenza. Dato che Ma¬ 
cBanker può caricare e salvare i file 
per nome lo potreste utilizzare per te¬ 
ner nota di altri tipi di spese. Può 
darsi che riusciate addirittura a farlo 
senza modificare il programma, con 
l’impiego di promemoria differenti. 


Corso Italia 149 - 34170 GORIZIA 
Telefono 0481/30909 


MIRROR TECHNOLOGIES 


MagNet 20 Disco rigido da 20 MByte interno per 
Mac. Viene fornito con MacServe software della 
Infosphere che permette: 

Multillser (sino a 16 MAC in rete AppleTalk) 
Partizione in volumi (sino a 16 volumi logici) 

Disk Cache 

Protezione con Password a livello di volume 
Spool di stampa (sino a 32 lavori) 

Print Server/Disk Server su Apple Talk 
Backup completo o incrementale e Restore 
Sistema di gestione gerarchico APPLE HFS 
Costruzione estremamente robusta. 


SEOronge fUicró 

■■ ine. 

Ora in Italia, distribuite da Elcom, le interfacce 
per stampanti della Orange Micro, California, 
U.S.A. 

HOT LINK Per collegare a Apple Ile una 
qualunque stampante parallela 
GRAPPLER C Permette una facile stampa della 
grafica su qualunque stampante parallela che 
simula una ImageWriter II 
GRAPPLER + SERIALE Finalmente semplice la 
stampa grafica, anche a colori , con ImageWriter 
II. Opzionale un Buffer sino a 64 K 
GRAPPLER + La più diffusa interfaccia per 
Apple. Più di 300.000 schede vendute. Si 
abbina ad un gran numero di stampanti e 
permette la stampa grafica con ben 27 funzioni 
IMAGE BUFFER 11 "turbo" per l’IMAGE WRITER 
II. 64 K di buffer espandibili a 128 K 
IMAGE MATE Permette di usare IMAGE WRITER 
Il con un PC o compatibile ed è, allo stesso 
tempo, un buffer da 64 K. 

Tutte le schede hanno un ricco manuale in 
italiano. 


THUNDERSCAN V. 3.1 


E’ ora disponibile l'ultimissima versione di 
ThunderScan. Compatibile con tutte le stampanti 
Apple. Con un adattatore.ed un cavo speciale é 
ora possibile usarla anche con Macintosh Plus . 


VICOM COMMUNICATIONS SOFTWARE 


f " \ 

Questo programma è disponibile 
su dischetto. L’elenco, i prezzi 
e le modalità d’ordine di questo 
e degli altri dischetti disponibili 
sono riportati nella rubrica 
Disk Service. 


\_ - 



© By Nibble e Applicando 


Il "Veroprogrammapercomunicazioni" éoradisponi¬ 
bile in Italia. Permette il collegamento con tutte le ban¬ 
che dati: anche Videotel. Multitasking: contemporanea¬ 
mente potete trasmettere un file mentre ne stampate 
un'altro e ne state creando un terzo. Emulazione VT 
100. Facile da usare. In combinazione con il Modem- 
phone 1203 in offerta speciale presso gli Apple Center. 



I prodotti distribuiti da Elcom sono disponibili 
presso tutti gli Apple Center. 
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Saprete salvare il mondo da Crono, il titano risorto dagli Inferi, 
e dai suoi temibili alleati: Ciclopi, Chimere, Erinni e Giganti? 
Qualche chance ce l'avete, perché siete Zeus... 


La caduta 


degli dei 


Gli dei sono in guerra! 

Vuole il mito che, quando assunse 
il potere sull'universo, il titano Cro¬ 
no, figlio di Urano, divorasse i suoi 
figli appena nati per paura che potes¬ 
sero un giorno spodestarlo. La mo¬ 
glie Rea, però, quando partorì il se¬ 
sto figlio. Zeus, lo mise in salvo 
dando in pasto al marito una pietra 
avvolta in fasce. Divenuto grande, 
Zeus, conl'aiuto dei fratelli magica¬ 
mente richiamati in vita e dei titani 
buoni, sconfisse il padre e i titani 





suoi alleati relegandoli per sempre 
nel Tartaro. 

Ora però lo spirito di Crono si è 
levato dal Tartaro. I Ciclopi dalla for¬ 
za mostruosa, le voraci Chimere, le 
scatenate Erinni e gli enormi Gigan¬ 
ti che scagliano possenti alabarde so¬ 
no suoi alleati nella battaglia per la 
supremazia universale. Voi comanda¬ 
te il tremendo carro di Zeus, e con i 
suoi potenti fulmini dovete respinge¬ 
re le ondate degli invasori. 

Crono è un gioco arcade ultrarapi¬ 
do, scritto in linguaggio macchina 
per avere un’animazione ricca di colo¬ 
re ed esente da sfarfallio (figura 1). 

Come si gioca 
alla guerra divina 

Per cominciare a giocare battete 
RUN CRONO. Potete controllare il 
vostro carro base o con le paddle o 
con la tastiera. Con il comando da ta¬ 
stiera premete A per scagliare un ful¬ 
mine, usate la freccia destra per spo¬ 
starvi a destra, quella sinistra per 
spostarvi a sinistra, e premete la bar¬ 
ra spaziatrice per fermare il carro. 

Segnate punti quando un fulmine 
colpisce uno dei vostri nemici. Se 
colpite un Ciclope ottenete 50 pun¬ 
ti, le Chimere valgono 100 punti, le 
Erinni 500, e se abbattete l’alabarda 
di un Gigante ottenete 250 punti. Al 
completamento di ciascun livello 
vengono assegnati punti di bonus, 
in conformità con il numero del li¬ 
vello e con il tempo che avete impie¬ 
gato per superarlo. Ogni livello è 
più difficile del precedente. 

Non pubblichiamo i listati del 
programma (data la complessità e la 
sofisticatezza con cui è stato scritto, 
occuperebbero 20 pagine di gior¬ 
nale). Crono è però disponibile su 
dischetto. Troverete le modalità e il 
buono per l’ordinazione nelle pagine 
del Disk Service. Il programma è 
invece già compreso nel dischetto 
per gli abbonati. 

Calcoli, animazione 
e collisioni 

La maggior parte del codice del 
programma è dedicata allo svolgi¬ 
mento di tre compiti: il calcolo delle 
posizioni degli oggetti, l’animazione 
degli oggetti e l’individuazione e ge¬ 
stione delle collisioni fra gli og¬ 
getti. 

I calcoli usati in Crono sono assai 
semplici. La nave base del giocato¬ 
re (il carro di Zeus) viene spostata 


aggiungendo due alla sua posizione 
orizzontale o sottraendo due dalla po¬ 
sizione, secondo l'input imposto dal¬ 
la paddle o dalla tastiera del giocato¬ 
re. La nave da guerra di Crono viene 
spostata avanti e indietro alla som¬ 
mità dello schermo aggiungendo due 
alla sua posizione orizzontale fino a 
che si trova all'estrema destra, e poi 
sottraendo due fino a quando si trova 
all’estrema sinistra, e così via. I tiri 
del giocatore vengono mossi sot¬ 
traendo sei dalla posizione verticale 
del tiro a ogni loop del programma. 

Lo spostamento delle navi nemi¬ 
che più piccole (Ciclopi, Chimere, 
Erinni e alabarde dei Giganti) è un 
po’ più complesso. Le variabili uti¬ 
lizzate per le navi nemiche sono EN- 
STAT, ENXPOS, ENXPOSH, EN- 
YPOS, ENMX, ENMXH e ENMY. 
Dato che sullo schermo ci possono 
essere simultaneamente fino a qua¬ 
ranta navi, ognuna di queste variabi¬ 
li è una matrice che contiene quaran¬ 
ta elementi. In qualsiasi momento 
dato solo alcuni di questi elementi 
sono utilizzati per rappresentare na¬ 
vi. ENSTAT è impostato su zero 
per gli elementi inattivi, e su 1-4 
per le navi attive. Il valore esatto di¬ 
pende dal tipo di nave che viene raffi¬ 
gurato. 

Per spostare le navi nemiche il 
programma passa ciclicamente per 
tutti i quaranta elementi. Le locazio¬ 
ni delle navi in movimento sono cal¬ 
colate con le formule X = X + MX 
e Y = Y + MY. Se una nave esce 
dal campo di gioco la corrispondente 
variabile di movimento (ENMX o 
ENMY) diventa negativa, di modo 
che la nave dà l'impressione di rim¬ 
balzare sul bordo. 

Le variabili usate per creare le e- 
splosioni sono EXPLSTAT, E- 
XPLTYPE, EXPLXPOS, E- 
XPLXPOSH, EXPLYPOS, E- 
XPLMX, EXPLMY, EXPLMYF ed 
EXPLYAC. Ci possono esser ben 
quaranta frammenti sullo schermo 
nello stesso momento, e quindi que¬ 
ste variabili vengono implementate 
anch'esse come matrici. 

Quando un'esplosione viene inizia- 
lizzata EXPLSTAT è impostata su 
sei. Se si tratta di un'esplosione sem¬ 
plice EXPLTYPE è impostata su ze¬ 
ro. A ogni loop del programma E- 
XPLSTAT viene decrementata, e per 
ogni valore di EXPLSTAT viene di¬ 
segnata una figura diversa, il che dà 
l'illusione ottica di un'esplosione. 
Alla fine EXPLSTAT raggiunge 
$FF e l’esplosione diventa inattiva. 


Le variabili dell'esplosione sono u- 
sate anche per i frammenti dell'esplo¬ 
sione. Per quanto riguarda queste 
schegge EXPLTYPE viene imposta¬ 
ta su uno per il frammento del tipo 
a freccia e su due per i frammenti 
quadrati. EXPLMX, EXPLMY, E- 
XPLMYF ed EXPLYAC sono pure 
impostati su valori appropriati al ti¬ 
po di scheggia. 

EXPLMX ed EXPLMY sono le 
costanti di movimento che vengono 
aggiunte a EXPLXPOS ed E- 
XPLYPOS. EXPLMYF è la parte 
frazionaria di EXPLMY. E- 
XPLYAC è l'accelerazione dei fram¬ 
menti di tipo 2 nella direzione Y; il 
suo uso permette che traccino un ar¬ 
co parabolico. L'equazione per i per¬ 
corsi dei frammenti è EXPLMYF = 
EXPLMYF + EXPLYAC. Quando 
EXPLMYF supera 255 causa l’over- 
flow ed EXPLMY viene aumentata. 

Dato che EXPLMY è in origine 
negativa per i frammenti del tipo 2, 
questi cominciano a muoversi andan¬ 
do verso l'alto. Tuttavia con l'au¬ 
mento di EXPLMY (che diventa pri¬ 
ma meno negativa e poi più positi¬ 
va) i frammenti rallentano e poi co¬ 
minciano a cadere. Nel frattempo si 
spostano a una velocità orizzontale 
costante. Come risultato si hanno le 
belle parabole che i frammenti trac¬ 
ciano sullo schermo. 

L'animazione viene eseguita intera¬ 
mente con figure a blocco presposta¬ 
te, per ragioni di velocità e semplici¬ 
tà. Sono utilizzati due tipi di routine 
di disegno: una per l'individuazione 
della collisione e una per i casi in 
cui l'individuazione della collisione 
non è necessaria. 

La routine di disegno che non indi¬ 
vidua le collisioni legge i dati dalle 
tavole delle figure e li immagazzina 
direttamente sullo schermo (la parti¬ 
colare tecnica è documentata nel codi¬ 
ce sorgente). Poiché i dati sono im¬ 
magazzinati direttamente sullo scher¬ 
mo, questa routine di disegno può es- 
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Figura 1. Lo schermo di gioco. 
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sere utilizzata per eseguire l'anima- 
zione ad autocancellazione, un tipo 
di animazione nel quale una figura 
viene cancellata dalla sua vecchia lo¬ 
cazione mentre viene disegnata nel¬ 
la nuova. 

L'animazione 
ad autocancellazione 

L'animazione ordinaria usa il ciclo 
di programmazione: calcolare, cancel¬ 
lare, disegnare, salvare la vecchia lo¬ 
cazione, ripetere. L'animazione ad au¬ 
tocancellazione è più rapida perché il 
ciclo di programma è molto più sem¬ 
plice: calcolare, disegnare, ripetere. 

Per eseguire l'animazione ad auto¬ 
cancellazione avete anzitutto biso¬ 
gno di una routine che trasferisca i 
byte dalla figura a blocco direttamen¬ 
te allo schermo. La seconda esigenza 
è che la figura dev’essere definita con 
un bordo vuoto tutto attorno. Le di¬ 
mensioni del bordo devono essere u- 
guali all’escursione massima della fi¬ 
gura sullo schermo. Così se MX è 
lo spostamento massimo nella dire¬ 
zione X, e MY il movimento massi¬ 
mo nella direzione Y, le dimensioni 
totali della figura saranno: 


Altezza = 

Altezza della figura + 2 * MY 
Larghezza = 

Larghezza della figura + 2 * MX 


Una volta che una tale figura è de¬ 
finita, la si può usare in combinazio¬ 
ne con la routine di disegno diretto 
per eseguire l'animazione ad auto¬ 
cancellazione. Il vostro programma 
non fa che eseguire i calcoli necessa¬ 
ri per spostare e disegnare la figura, 
badando che non si sposti mai di più 
di MX o MY. Non c'è alcuna neces¬ 
sità di salvare le variabili e cancella¬ 
re la figura. 

Questa tecnica è stata usata per ani¬ 
mare ogni cosa con l'eccezione dei 
fulmini e della nave base del giocato¬ 
re. 

In questi casi il suo impiego era 
precluso dalla necessità di eseguire i 
controlli di collisione. La ragione 
per cui l'animazione ad autocancella¬ 
zione funziona è che una figura vie¬ 
ne immagazzinata direttamente sopra 
se stessa; così l'individuazione di u- 
na collisione è impossibile, perché 
verrebbe sempre individuata una col¬ 
lisione, quella dell'oggetto con se 
stesso. 

Per animare i fulmini e la nave ba¬ 
se, dunque, questi oggetti dovevano 


essere cancellati e poi ridisegnati. Al¬ 
la cancellazione si è provveduto pren¬ 
dendo il complemento dei dati della 
figura (EOR $7F) e facendone l’AN- 
D con il byte di schermo. Il motivo 
per cui questo metodo funziona do¬ 
vrebbe essere evidente. Supponete 
di avere una figura di un byte con la 
configurazione di bit 0010101. 
Quando questa viene disegnata sullo 
schermo i bit che sono on (cioè di 
valore 1) fanno sì che passino a 1 an¬ 
che i corrispondenti bit di schermo. 
Pertanto anche lo schermo diventa 
0010101. Nel ciclo di cancellazione 
l’EOR mette off tutti i bit che sono 
on e viceversa, perciò il risultato è 
1101010. Quando se ne fa l'AND 
con il byte di schermo il risultato è 
00000000. 

Una volta che la figura è cancella¬ 
ta viene ridisegnata sullo schermo 
con un ORA. Questo tipo di dise¬ 
gno sovrappone una figura sullo 
schermo, di modo che qualsiasi cosa 
si trovasse in precedenza sullo scher¬ 
mo vi rimane. Ma come viene otte¬ 
nuta l'individuazione della collisio¬ 
ne? Idealmente è eseguita facendo 
l'AND di ciascun byte di schermo 
con il corrispondente byte di figura. 
Un risultato diverso da zero indiche¬ 
rebbe che bit corrispondenti sullo 
schermo e nella figura sono accesi: 
in altre parole si è verificata una col¬ 
lisione. Questa tecnica è possibile 
quando gli oggetti vengono cancella¬ 
ti e disegnati esclusivamente con i- 
struzioni EOR. 

Qui però il sistema non funzione¬ 
rebbe, a causa della tecnica utilizzata 
per cancellare la figura. La routine di 
cancellazione mette specificamente 
off tutti i bit che corrispondano a bit 
che sono on nella figura. Poi la rou¬ 
tine di individuazione delle collisio¬ 
ni farebbe un controllo per scoprire 
gli accavallamenti di bit di dati dello 
schermo e bit di dati della figura, ma 
non ce ne sarebbero (se la nave fosse 
ferma, come è spesso la vostra nave 
base). 

La soluzione consiste nell'utilizza- 
re uno schema assai più rudimentale 
di individuazione. Anziché eseguire 
l'AND dei dati di schermo con i dati 
di figura si salvano direttamente i da¬ 
ti dello schermo. 

Se ci sono bit di schermo a 1 nei 
byte in cui si fa l'ORA della figura 
viene detto che è avvenuta una colli¬ 
sione. 

Questa tecnica non è precisa come 
l'altra, dato che vengono confrontati 
byte anziché singoli bit. 


L'animazione 
con l'uso dei colori 

L’ultimo soggetto da esaminare 
nel campo dell'animazione è il colo¬ 
re. Il colore è semplice da realizzare 
nell'Apple se il programmatore tiene 
a mente due regole: 

1. Definire le figure in modo che i 
bit non siano a 1 in posizioni oriz¬ 
zontalmente adiacenti quando si desi¬ 
dera il colore. Due bit a 1 orizzontal¬ 
mente adiacenti producono il bianco. 

2. Spostare le figure di multipli di 
due punti. Il colore di uno specifico 
punto è definito dal fatto che il pun¬ 
to si trovi in una colonna dispari o 
in una colonna pari. Per impedire al¬ 
le figure di lampeggiare fra i colori 
la figura dev'essere mantenuta sem¬ 
pre in colonne pari o in colonne di¬ 
spari mentre si sposta. 

A parte queste due limitazioni, la 
programmazione di un gioco a colo¬ 
ri è pressoché identica a quella in 
bianco e nero. 

Flag di collisione e 
variazioni di punteggio 

Le routine di individuazione delle 
collisioni sono già state descritte. 
Quando vengono disegnati la nave 
base o il tiro del giocatore, ogni ac¬ 
cavallamento con un'altra figura vie¬ 
ne contrassegnato dall’impostazione 
del flag di collisione. Al ritorno dal¬ 
la routine di disegno, se questo flag 
è impostato la posizione X,Y del ti¬ 
ro o della nave base viene comparata 
con le posizioni X,Y delle navi ne¬ 
miche e dei frammenti di esplosione 
(nel caso della nave base). Questo 
viene fatto con la formula: ABS 
((Xl+Cl) - (X2+C2)), dove XI e 
X2 sono i valori della parte più a si¬ 
nistra di ciascuna figura, e CI e C2 
sono le larghezze di ciascuna figura 
divise per due. Se il risultato è infe¬ 
riore a C1+C2 le figure sono oriz¬ 
zontalmente in campo di collisione. 
Il campo verticale è controllato in 
maniera analoga, e se gli oggetti so¬ 
no nel campo si è avuta una collisio¬ 
ne. In questo caso le variabili di e- 
splosione vengono inizializzate e il 
punteggio viene aumentato. 

/ ; x 

Questo programma è disponibile 
su dischetto. L’elenco, i prezzi 
e le modalità d’ordine di questo 
e degli altri dischetti disponibili 
sono riportati nella rubrica 
Disk Service. 
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Sei proprio sicuro 
che il tuo computer 
sia sempre al sicuro? 

Incidenti di trasporto, furti anche dall'auto o dalla camera 
d'albergo, cortocircuiti, bevande rovesciate sulla tastiera, 
bambini o inesperti che ci mettono le mani... Ecco i pericoli 
che correva il tuo computer prima della polizza Applicando. 


Condizioni generali di assicura¬ 
zione: 

1) Premessa : a) l'adesione alla 
presente polizza è riservata ai pro¬ 
prietari di un Personal Computer il 
cui valore stabilito come alla Condi¬ 
zione 6) sia superiore a L. 
2.500.000 Iva compresa; b) l’adesio¬ 
ne alla presente polizza da parte dei 
proprietari di personal computer av¬ 
verrà a mezzo invio di apposita car¬ 
tolina con il relativo importo di pre¬ 
mio; c) l'intestatario della cartolina 
sarà considerato a tutti gli effetti co¬ 
me l’Assicurato; d) la garanzia sarà 
operante dalle ore 24 del giorno di 
spedizione della cartolina, risultante 
dal timbro postale. La copertura a- 
vrà durata un anno, sempre che la 
data di inizio della garanzia si a com¬ 
presa nel periodo di validità della 
convenzione. 

Garanzie e condizioni 

2) Sez. I - Danni materiali. Deri¬ 
vanti da: a) incendio, opera di spe¬ 
gnimento e salvataggio, fulmine, e- 
splosione, scoppio, implosione; b) a- 
cqua e liguidi in genere, inondazio¬ 
ne, alluvione, trombe, uragani, ge¬ 
lo, ghiaccio, neve, grandine, valan¬ 
ga, caduta massi e altri simili even¬ 
ti; c) superamento del muro del suo¬ 
no, caduta di aeromobili o cose da 
essi trasportate; d) corto circuito, 
variazione di corrente, sovratensio¬ 
ne arco voltaico, deficienze di isola¬ 
mento, effetti di elettricità statica, 
induzione; e) imperizia, negligen¬ 
za, errata manovra, nonché azioni 
dolose e colpose in genere; f) tra¬ 


sporti e smontaggi connessi con la¬ 
vori di pulizia o di manuten¬ 
zione; g) furto e rapina; h) terremo¬ 
to, maremoto o eruzioni vulcani¬ 
che; i) persone che prendono parte 
a tumulti popolari, scioperi, som¬ 
mosse e che perpetrino individual¬ 
mente o in associazione atti di terro¬ 
rismo o sabotaggio verificatisi in 
occasioni di serrate. 

3) Sez. II - Responsabilità Civile 
Terzi: L’assicurazione si intende i- 
noltre prestata per la Responsabili¬ 
tà Civile derivante all’Assicurato 
dalla proprietà e dall’uso personale 
del computer assicurato, identifica¬ 
to nel certificato di assicurazione. I 
massimali di garanzia si intendono 
fissati in: L. 100.000.000 per sini¬ 
stro con il limite di L. 100.000.000 
per ciascuna persona deceduta o 
che abbia subito lesioni personali 
L. 100.000.000 per danni a cose e/o 
animali. 

4) Esclusioni: La Società non è 
obbligata per i danni dovuti a: - do¬ 
lo dell’Assicurato; - corrosione, de¬ 
perimento, logoramento che siano 
conseguenza del normale uso o fun¬ 
zionamento o causati dagli effetti 
graduali degli agenti atmosferici; - 
per i quali deve rispondere il forni¬ 
tore, venditore o locatore degli enti 
assicurati per legge o per contratto 
o per inaaeguata manutenzione; - 
causati da difetti di materiale o di 
costruzione che esistevano già all’at¬ 
to della stipulazione della polizza e 
erano a conoscenza dell'Assicurato;- 
causati direttamente o indirettamen¬ 


te da avvenimenti bellici, sommos¬ 
se militari, invasioni, adozione di 
misure da parte di potenze straniere, 
rivoluzione, ribellione, insurrezio¬ 
ne, assunzione ©usurpazione di pote¬ 
re di carattere militare, sequestri; - 
verificatisi in occasione di esplosio¬ 
ne, radiazione nuclerare o di conta¬ 
minazione radioattiva; - uso impro¬ 
prio del bene (mancato rispetto del¬ 
le norme di impiego dettate dal co¬ 
struttore); - danni estetici (quelli in¬ 
teressanti l’involucro esterno che 
non sia conseguenza di un danno ri¬ 
sarcibile a termine della presente po¬ 
lizza); - guasti casualmente ricondu¬ 
cibili a interventi, a riparazioni e/o 
modifiche effettuate da un centro 
non autorizzato dalla casa costruttri¬ 
ce della macchina; - danni indiretti 
in genere. 

5) Operatività della garanzia: a) 
la garanzia è operante solamente se 
gli enti assicurati sono ubicati pres¬ 
so il domicilio dell'Assicurato o in 
luoghi diversi da questi se in posses¬ 
so dell'Assicurato; b) la garanzia è 
pure efficace se i beni si trovano sul¬ 
l’autovettura in uso all’Assicurato, 
salvo i seguenti casi: - qualora l'au- 


Sl! Desidero assicurare i miei/il mio computer, in¬ 
viatemi a stretto giro di posta il certificato emesso dal¬ 
la Ras. L’assicurazione avrà valore a decorrere dalle 
ore 24 del giorno di spedizione della mia adesione. 
Per la data fa fede il timbro postale. 

COGNOME_ 



NOME. 


INDIRIZZO - 


CAP- 


Città 


-PROV. 


Assicuro i/il seguente personal: 
Marca e Modello 


N. di matricola 


Valore (Iva compresa) 


Con le seguenti periferiche (stampanti, video, drive, hard-disk, ecc.): 

Marca e Modello N. di matricola Valore (Iva compresa) 


In caso di spazio insufficiente ricopiate su un foglio il tagliando indicando i prodotti che intendete assicurare. 

Per un totale complessivo di Lire . su cui pa¬ 

go il premio calcolato in base alla tabella riportata qui sopra. Allego assegno non trasferibile di 
Lire.intestato a Editronica srl, Corso Monforte 39, 20122 Milano. 


tovettura venga lasciata incustodita 
dalle ore 22 alle ore 6; - qualora 
l’autovettura regolarmente chiusa a 
chiave venga lasciata incustodita 
dalle ore 6 alle ore 22 e gli enti assi¬ 
curati non opportunamente occulta¬ 
ti nel bagagliaio; c) limitatamente 
ai danni di rottura la garanzia è effi¬ 
cace solamente nel caso questi sia¬ 
no dovuti a un incidente in cui ri¬ 
manga coinvolto anche il veicolo 
in uso dell'Assicurato che trasporta¬ 
va i beni assicurati; d) per gli enti 
per i quali non è stato stipulato il 
contratto di manutenzione e/o assi¬ 
stenza con la casa costruttrice e/o 
ditte di essa mandatarie qualora l’en¬ 
te richieda per norma del fornitore 
detto contratto, la società non ri¬ 
sponde dei danni verificatisi in con¬ 
seguenza di guasto meccanico e/o e- 
lettrico salvo che l’Assicurato pro¬ 
vi che tale guasto sia causato da e- 
vento esterno agli enti assicurati o 
da incendio originato da uno di que¬ 
sti enti. 

6) Somma Assicurata: La somma 
assicurata per ciascun ente deve cor¬ 
rispondere al costo di rimpiazzo, os¬ 
sia al prezzo di listino della casa co¬ 
struttrice ed escluso ogni sconto o 
prezzo di favore di un ente nuovo, 
eguale o equivalente per caratteristi¬ 
che, prestazioni e rendimento eco¬ 
nomico. 

7) Premio: Per ogni singola appli¬ 
cazione è stabilito un premio forfet¬ 
tario omnicomprensivo così calco¬ 
lato: 


Somma assicurata 

Premio 

da 

a 

2.500.000 

3.000.000 

50.000 

da 

a 

3.000.000 

5.000.000 

.65.000 

da 

a 

5.000.000 

7.000.000 

80.000 

da 

a 

7.000.000 

10.000.000 

100.000 

da 

a 

10.000.000 

15.000.000 

120.000 

da 

a 

15.000.000 

20.000.000 

150.000 


8) Franchigia. Per ogni e qualsia¬ 
si danno che colpisca gli enti assicu¬ 
rati è stabilita una franchigia di: L. 
50.000 per somma assicurata fino a 
L. 5.000.000; L. 100.000 per som¬ 
ma assicurata superiore a L. 
5.000.000. Per sinistri causati da e- 
venti come ai punti g) ed h) delle ga¬ 
ranzie prestate, la Società liquiderà 
i danni sotto deduzione di uno sco¬ 
perto pari al 20% della somma assi¬ 
curata, col minimo delle franchigie 
sopra stabilite. 

9) Rinvio alle norme di legge. 
Per tutto quanto non è qui diversa- 
mente regolato, valgono le norme 
di legge. 


1U& e applicando vi mettono al sicuro 
































TRIGONOMETRIA 


iscuola 


Funzioni trigonometriche? Sì, volentieri, se gli assi cartesiani 
sono tarati in modo funzionale; se per usare il programma 
non ci vuole una laurea; se la stampa dei grafici permette 
di confrontarli. Trig è tutto questo, anzi, di più: un'apposita routine, 
friendly, impedisce che errori involontari mandino tutto a rotoli. 


Seno o coseno, 
purché funzioni 


Ecco un programma non vietato ai 
minori di 18 anni, né dedicato esclu¬ 
sivamente agli addetti ai lavori; rea¬ 
lizza graficamente le funzioni di se¬ 
no, coseno, tangente, cotangente, se¬ 
cante e cosecante, con l’utilizzo di 
routine amichevoli, che cioè non 
mettono nei pasticci chi le utilizza. 
Per il matematico dunque, ma anche 
per chi non lo è ma ha a che fare 
con la trigonometria, Trig traccia la 
funzione prescelta sullo schermo ad 
alta risoluzione. 

I punti essenziali di progetto per 
questo programma sono quattro: 

1. Il programma deve realizzare gra¬ 
ficamente le funzioni di seno, cose¬ 
no, tangente, cotangente, secante e 
cosecante. 

2. Gli assi X e Y devono essere 
messi in scala e numerati in modo 
pratico, vale a dire l’asse Y deve esse¬ 
re marcato in numeri interi e l’asse 
X in multipli di n. 

3. La routine di input deve essere 
amichevole, cioè deve essere impos¬ 
sibile arrestare involontariamente l'e¬ 
secuzione del programma. Questo è 
necessario in quanto il programma 
deve essere utilizzato sia dagli inse¬ 
gnanti che dagli studenti. 

4. Il programma deve consentire 
la sovrastampa dei grafici per il con¬ 
fronto con altri grafici. 

Trig traccia un grafico delle funzio¬ 
ni della forma: 


F(x) = A sen B (teta + C) + D 


Listato 1. Appletrig 

DOS 3.3 

10 

11 

REM 

REM 



APPLE TRIG 

Apple Ile 

12 

REM 

DI ANDY WARREN 

Apple Ile 

13 

REM 

COPYRIGHT (C) 1986 


14 REM BY APPLICANDO & 

15 REM MICROSPARC, INC 


16 REM - 

100 ONERR GOTO 1590 

180 REM -- PROTEGGE PAGINA 

190 REM -- GRAFICA UNO 

200 IF PEEK (103) < > 45 OR PEEK (104) < > 65 THEN POKE 103, 

45: POKE 104,65: POKE 16684,0: PRINT CHR$ (13) CHR$ (4) H RUN 
APPLE TRIG" 

210 REM PRESENTAZIONE 

220 TEXT : HOME :C$ = "*":A = 8:B = 31:C = 6:D = 17 
230 GOSUB 440: VTAB 3: HTAB 8 

240 INVERSE : PRINT "FUNZIONI TRIGONOMETRICHE" 

250 FLASH * GOSUB 390 

260 NORMAL : VTAB C + 2: HTAB A + 3: PRINT "FUNZIONI CIRCOLARI" 

270 VTAB C + 3: HTAB A + 8: PRINT "VER. 2.2" 

280 PRINT : HTAB A + 3: PRINT "DI ANDY WARREN, 82" 

290 HTAB A + 3: VTAB C + 7: PRINT "(C)1986 APPLICANDO" 

300 HTAB A + 3: PRINT "& MICROSPARC, INC" 

310 REM 

330 FOR X = 1 TO 700: NEXT X 
340 INVERSE : GOSUB 390 

350 NORMAL : VTAB 20: HTAB 2: PRINT "VUOI ESEGUIRE ORA IL PROGRAM 


360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 


580 

590 

600 


> "S" AND Y$ 
HOME : END 


C TO D 

PRINT C$: HTAB B: PRINT CS: VTAB Y: NEXT 
FOR X = 1 TO B - A + 1: PRINT C$;: NEXT : 


0 TO 191 STEP 2 


X,X TO 279 - X, 
TO 1000: NEXT : 


191 - 
TEXT 


MA?"; 

GET Y$: IF Y$ < 

IF Y$ = "N" THEN 
GOTO 490 

HTAB A: VTAB C: FOR X 
NT 

FOR Y = 

HTAB A: 

HTAB A: 

RETURN 

HGR : POKE 49234,0: FOR X 
HCOLOR= 3 

HPLOT X,X TO 279 - 
NEXT X: FOR D3 = 1 
REM 

REM -- PROGRAMMA PRINCIPALE: 

TEXT : HOME : SPEED= 255: NORMAL 
VTAB 8: HTAB 15: PRINT "ATTENDI PREGO" 
REM CARICA TAVOLA DELLE FIGURE: 

L = 16384 

GOSUB 1650: POKE 232,L - 256 * INT (L / 
(L / 256) 

REM 

GOSUB 570: GOTO 590 
INVERSE : VTAB 23: HTAB 
ARE ";: POKE - 16368,0 
= FRE (0): RETURN 
REM ISTRUZIONI 
VTAB 5: HTAB 1 

PRINT "QUESTO PROGRAMMA PERMETTE 
"FUNZIONI DELLA FORMA": VTAB 10: 

B (TETA + C) +D," 


"N" THEN 350 


1 TO B - A + 1: PRINT C$;: NEXT : PRI 


TO X, 
HOME 


191 - X TO X,X 
: RETURN 


2: PRINT 
: WAIT - 


256): POKE 233, INT 


" PREMI UN TASTO PER CONTINU 
16384,128: NORMAL : HOME :FR 


DI TRACCIARE": PRINT : PRINT 
HTAB 8: PRINT "F(X) = A SEN 


(Continua) 
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Per Macintosh o per Apple//c, 
ecco il modem R2000. Basta 
collegarlo alla linea telefonica 
con la sua spina/presa 
passante. E alla porta modem 

del computer. 


Comunicare 
costa solo 
280 mila lire 




CD A 

RX # 

tx m 


POWER 


FU^L O c 

m m 

HALF ANS 


e v m 


LINEA 


R2000. 
In contatto. 

R2000: 300 Baud; 
interruttore di linea; 
interruttore half/full 
duplex; interruttore 
Originate/Answer. 

Alimentazione 
esterna a 220 Volts. 
Costruito secondo le 
norme CCITT V21 e 
Bell 202. 


Per ricevere il modem R2000 basta compilare e spedire questo 
tagliando a Editronica Srl, Corso Monforte 39, 20122 Milano. 

I- 


□ Speditemi subito contrassegno il modem R2000. Pagherò 280.000 lire, 
Iva compresa, più spese di spedizione, direttamente al portalettere. 

□ Desidero fattura. 

Il mio Codice fiscale/Partita Iva è:. 




Cognome. Nome. 

Indirizzo.... 

Cap. Città. Prov. 


Data. 


Firma. 
























a[ppfflscuola 

dove A, B, C e D vengono immessi 
dall’utente, e sen può essere sostitui¬ 
to da cos, tan, cotan, sec o cosec. 

Il programma è flessibile al massi¬ 
mo, e quindi non viene limitata la fa¬ 
scia deH’input, anche se nel program¬ 
ma si dichiara che viene tracciata u- 
na curva "standard” quando A=l, 
B=l, C=0 e D=0. 

Va posta attenzione al fatto che 
l’asse Y sullo schermo va solo da -4 
a +4. 

Il programma 
riga per riga 

La linea 100 predispone la trappo¬ 
la degli errori; ogni volta che l’Ap¬ 
ple si imbatte in un errore va con 
GOTO a linea 1590. 

La linea 200 assicura che il pro¬ 
gramma Trig sia caricato al di sopra 
sia della prima pagina dell’alta risolu¬ 
zione sia dell’area in cui sarà colloca¬ 
ta a suo tempo la tavola delle figure. 
Si deve usare il nome "APPLE 
TRIG" quando si salva il program¬ 
ma su dischetto. 

Le linee 500-1260 costituiscono 
la sezione principale del program¬ 
ma. 

La linea 540 va con GOTO a linea 
1650 per scrivere in memoria con 
POKE la tavola delle figure, poi di¬ 
ce all’Apple dove si trova la tavola 
delle figure. 

La linea 570 è la subroutine "PRE¬ 
MI UN TASTO PER CONTI¬ 
NUARE". 

Le linee 590-650 sono istruzioni 
sul modo in cui usare il programma. 

Le linee 670-740 puliscono e vi¬ 
sualizzano lo schermo HLRes, la¬ 
sciando alla base una finestra di te¬ 
sto di quattro righe, poi permettono 
all'utente di introdurre i valori di A, 
B, C e D. 

La linea 760 formatta l’input del¬ 
l'utente aggiungendo spazi prima e 
dopo, poi va con GOSUB alla linea 
1370 per analizzare l’input e tradurlo 
in qualcosa che l’Apple possa capire. 

Le linee 780-800 visualizzano i va¬ 
lori scelti per A, B, C e D, poi per¬ 
mettono all’utente di cambiarli se so¬ 
no sbagliati. 

Le linee 820-850 permettono all’u¬ 
tente di scegliere una delle sei fun¬ 
zioni. 

Le linee 860-970 definiscono una 
funzione, R, sulla base della funzio¬ 
ne scelta dall’utente. 

Le linee 980-1000 visualizzano la 
funzione scelta e permettono all’u¬ 
tente di cambiarla se è sbagliata. 


610 


620 


640 

650 

660 

670 

680 

690 

700 
710 
720 
730 
740 
750 
7 60 

770 

780 

790 

800 

810 


VTAB 2: INVERSE 
AB 6: PRINT “E' 
" A = 1, B=1, C=0, 
PRINT : PRINT : 


VTAB 13: PRINT "DOVE A, B, C, & D SONO IMMESSI DA TE, E M : PRI 
NT "SEN PUÒ' ESSERE SOSTITUITO DA": VTAB 18: HTAB 8: PRINT "C 
OS, TAN, COTAN, SEC, O COSEC": GOSUB 570 

HTAB 14: PRINT " MISCELLANEA ": NORMAL : VT 
PRODOTTA UNA CURVA 'STANDARD* QUANDO": PRINT 
E D=0." 

PRINT "(QUANDO IMMETTI I VALORI LA SEMPLICE 
PRESSIONE DI <RETURN> EQUIVALE A BATTERE '0'.)" 

PRINT : PRINT "(QUANDO IMMETTI A, B, C, & D PUOI BATTE-";: PR 
INT "RE 'P' PER PI, CIOÈ' IP, 2P, -3P/2)" 

GOSUB 570 

REM INPUT A,B,C&D: 

FU$(1) = "SENO":FU$(2) = "TANGENTE":FU$(3) = "SECANTE":FU$(4) 
= "COSENO":FU$(5) = "COTANGENTE":FU$(6) = "COSECANTE" 

HGR 

POKE 34,20: POKE 35,24: HOME : PRINT 
+ D" 

PI = 3.1415927: POKE - 16368,0 
VTAB 21: HTAB 32: INPUT "A = ? ";A$ 

VTAB 22: HTAB 32: INPUT "B=? ";B$ 

VTAB 23: HTAB 32: INPUT "C=? ";C$ 

VTAB 24: HTAB 32: INPUT "D=? ";D$ 

REM ANALIZZA L'INPUT: 

A$ = " " + A$ + " " : B$ = '' 


"F(X)=A B (TETA 


B$ 


" : C$ 


+ c$ + 


C) 


" : D 


D$ 


GOSUB 1370 


;A$: PRINT "B 


$ = " 

REM 

HOME : PRINT "A 
NT "D = ";D$; 

VTAB 24: HTAB 23: PRINT "E' GIUSTO COSI 
: GET Q$: IF Q$ = "N" THEN 690 
IF Q$ < > "S" THEN 790 

REM INPUT FUNZIONE 


820 

VTAB 

24: HTAB 

23: 

CALL - 868 





830 

POKE 

33,17: POKE 

32, 23 





840 

HOME 

: PRINT 

"FUNZIONE?": PRINT 

" 

1) SEN 

4) < 


AN 1 

5) COTAN" 

: PRINT "3) SEC 

6) 

COSEC" 


850 

VTAB 

21: HTAB 

36: 

POKE - 16368, 

0 

: GET ' 

Q$ : F : 


< 1 

OR F > 6 

THEN 850 





8 60 

ON F 

GOTO 870 

, 890 

,910,930,950 

, 970 



870 

DEF 

FN R(X) 

= A 

* SIN (B * 

(X 

+ 

C)) + 

D 

880 

GOTO 

980 







8 90 

DEF 

FN R(X) 

= A 

* TAN (B * 

(X 

+ 

C)) + 

D 

900 

GOTO 

980 







910 

DEF 

FN R(X) 

= A 

/ COS (B * 

(X 

+ 

C)) + 

D 

920 

GOTO 

980 







930 

DEF 

FN R(X) 

= A 

* COS (B * 

(X 

+ 

C) ) + 

D 

940 

GOTO 

980 







950 

DEF 

FN R(X) 

= A 

/ TAN (B * 

(X 

+ 

c>) + 

D 

960 

GOTO 

980 







970 

DEF 

FN R(X) 

= A 

/ SIN (B * 

(X 

+ 

C>) + 

D 

980 

HOME 

: PRINT 

"FUNZIONE:": PRINT 

FU$ (F): 

VTAB 


USTO 

COSI'?"; 

: POKE - 16368, 

0: 

GET Q$ 


990 

IF Q$ = "N" THEN 

840 





1000 

IF < 

Q$ < > " 

S" THEN 980 





1010 

REM 








1020 

POKE 32,0: POKE 

33,40: POKE 

34, 

20: POKE 35, ; 

1030 

HOME : VTAB 

22: 

PRINT "F(X)= 

"A$ 

" "FU $(F) " 


) + 

"D$ 







1040 

REM 

DISEGNA 

GLI 

ASSI 






";B$: PRINT "C = ";C$: PRI 
;: POKE - 16368,0 


COS": PRINT "2) T 
= VAL (Q$): IF F 


1050 

1060 

1070 

1080 


1100 

1110 


1120 

1130 


1140 

1150 


1160 

1170 


1180 

1190 


1200 


(TETA + "C$" 


HCOLOR= 3: SCALE= 1: ROT= 64 

HPLOT 140,0 TO 140,159: HPLOT 0,80 TO 279,80 

FOR X = 0 TO 105 STEP 35: HPLOT X,77 TO X,83: HPLOT X + 1,77 
TO X + 1,83: NEXT 

FOR X = 174 TO 279 STEP 35: HPLOT X,77 TO X,83: HPLOT X - 1, 
77 TO X - 1,83: NEXT 

FOR Y = 0 TO 159 STEP 20: HPLOT 137,Y TO 143,Y: NEXT : HPLOT 
137,159 TO 143,159 
REM CONTRASSEGNA GLI ASSI 

FOR Y = 1 TO 4: DRAW Y AT 130,80 - Y * 20: DRAW Y AT 130,75 
+ Y 
FOR 
O X 
FOR 
O X 

, 92 

AT 40,86: DRAW 2 


Y * 20 : NEXT 
HPLOT X - 5,88 


HPLOT X - 12,88 T 


20: HPLOT 125,77 + Y * 20 TO 127,77 
= 75 TO 110 STEP 35: DRAW 10 AT X,86: 

3,88: NEXT 

= 12 TO 47 STEP 35: DRAW 10 AT X,86 
10,88: NEXT 

HPLOT 35,92 TO 51,92: HPLOT 105,92 TO 115 
DRAW 2 AT 108,94: DRAW 2 AT 42,94: DRAW 3 
T 5,86 

FOR X = 170 TO 275 STEP 35: DRAW 10 AT X,86: NEXT 
T 268,86 

.DRAW 2 AT 170,94: DRAW 2 AT 237,94: DRAW 3 AT 233,86: HPLOT 
233,92 TO 245,92: HPLOT 170,92 TO 175,92 
REM TRACCIA IL GRAFICO 
ST = 4 * PI / 279:P = 0:ML = - 20 

:M1 = 1:M2 = 160 

FOR X = - 2 * PI TO 2 * PI STEP ST:FX = INT ( FN R(X) * ML 

+ AD): IF FX < = MX AND FX > = MN THEN XDRAW 12 AT P,FX 


DRAW 2 A 


0 


La linea 1030 visualizza l’equazio¬ 
ne completa. 

Le linee 1050-1090 disegnano gli 
assi X e Y, completi di tacche. 


Le linee 1110-1170 provvedono a 
contrassegnare gli assi, utilizzando 
le figure della tavola delle figure. 

Le linee 1190-1220 sono l’autenti- 
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1210 

1220 

1230 

1240 


1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 


1380 


IF FX = M2 THEN XDRAW 12 AT P,MX 

P = P + MI: NEXT 

REM 

FR = FRE (0): POKE 34,23 : POKE 35, 24 : HOME : PRINT "VUOI SO 
VRASTAMPARE UN ALTRO GRAFICO? "; : POKE - 163 68,0: GET A$: I 
F A3 = "S" THEN 690 


IF A$ < 
GOTO 680 
REM 


> "N" THEN 1240 


(A$, X 
NEXT 


-- ANALIZZATORE DELL'INPUT. 

-- ANALIZZA L’INPUT 

— NUMERICO, CONVERTENDO 

— "P" IN PI, E 

-- CALCOLANDO LE FRA- 

— ZIONI, CIOÈ* 

— "3P/2" DIVENTA 
-- (3*3.1415927)/2 

— = 4.712389 

LEN (A$):B1 = LEN (B$):C1 = LEN (C$) :D1 - LEN (D$): 

VAL (B$):C = VAL (C$):D = VAL (D$): FOR 
MID$ (A$,X,1> = "P" THEN A = VAL ( LEFT3 
IF A = 0 THEN A = PI 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
Al 

A = VAL (A$) :B = 
X = 1 TO Al: IF 


D) 


PI: 


1390 

FOR X = 1 TO Al: 

IF 

MID$ 

(A$,X,1) 

= 


THEN 

A 

= 

A / 

VAL ( 


RIGHT$ (A$,Al - 

X) ) 










1400 

NEXT 











1410 

FOR X = 1 TO Bl: 

IF 

MID$ 

(B$,X,1) 

= 

"P" 

THEN 

B 

= 

VAL 

( LEF 


T$ (B$,X - 1)) * 

PI: 

IF B 

= 0 THEN 

B 

= PI 






1420 

NEXT 











1430 

FOR X = 1 TO Bl: 

IF 

MID$ 

(B$,X,1) 

= 


THEN 

B 

= 

B / 

VAL ( 


RIGHT$ (B$,B1 - 

X)) 










1440 

NEXT 











1450 

FOR X = 1 TO Cl: 

IF 

MID$ 

(C$,X,1) 

= 

"P" 

THEN 

C 

= 

VAL 

( LEF 


T$ (C$,X - 1) ) * 

PI : 

IF C 

= 0 THEN 

C 

= PI 






1460 

NEXT 











1470 

FOR X = 1 TO Cl: 

IF 

MID$ 

(C$,X,1) 

= 


THEN 

C 

= 

C / 

VAL ( 


RIGHT$ (C$,C1 - 

X) ) 










1480 

NEXT 











1490 

FOR X = 1 TO DI: 

IF 

MID$ 

(D$,X,1) 

= 

" P " 

THEN 

D 

= 

VAL 

( LEF 


T$ (D$, X - 1) ) * 

PI : 

IF D 

= 0 THEN 

D 

= PI 






1500 

NEXT 











1510 

FOR X = 1 TO DI: 

IF 

MID$ 

(D$,X,1) 

= 

M/M 

THEN 

D 

= 

D / 

VAL ( 


RIGHT$ (D$,DI - X)) 


1520 

NEXT 





1530 

IF 

NOT (A) THEN A$ = 

M 0 




1540 

IF 

NOT B THEN B$ = " 

0" 




1550 

IF 

NOT C THEN C$ = " 

0" 




1560 

IF 

NOT D THEN D$ = " 

0" 




1570 

A$ 

= RIGHT$ (A3, LEN 

(A3) - 1) :B3 = 

RIGHT3 (BS, LEN 

(B3) 

- 


1) 

:C$ = RIGHT3 (C$, 

LEN (C3) - 1):D3 

= RIGHT3 (D3, 

LEN 

(D 


$) 

- 1): RETURN 





1580 

REM 

TRAPPOLA DEGLI ERRORI: 




1590 

Y = 

PEEK (222): IF Y 

= 133 THEN 1220: 

REM — DIVISIONE 

PE 


1600 

1610 

1620 

1630 

1640 

1650 


1660 


1670 

1680 


1690 


1700 


R ZERO 

IF Y = 0 THEN 1240: REM 
IF Y = 254 OR Y = 255 THEN PRINT 
— INPUT NON VALIDO O CTRL-C 
TEXT : HOME : PRINT CHR$ (7);"ERRORE N.";Y; CHR$ (7);" ALLA 
LINEA PEEK (218) + 256 * PEEK (219): END 


NEXT SENZA FOR 
CHR$ (7);: RÉSUMÉ 


COSTRUISCE TAVOLA DELLE FIGURE 

READ B$: FOR 1=1 


LEN (B$) STEP 
THEN AD = AD - 


REM 

M = L: FOR X = 1 TO 3: READ B$: FOR I = 1 TO 
2 :AD = ASC ( MID$ (B$,I,1)) - 48: IF AD > 9 
7 

CH = ASC ( MID3 (B$,I +1,1)) - 48: IF CH > 9 THEN CH = CH 
- 7 

POKE M,AD * 16 + CH:M =M + 1: NEXT : NEXT : RETURN 
DATA "OF00200025002F003B0044004F0057005D00690073007C0085008 
7008D009B0009363606002D2D363F3F362D2D05002D2D363F3F5749313F3 
F0700362D2D248C9233060049393F372E2D353E3F3F0036362D2D243F3F0 
02D2D363606002D2D363F3FE492 

DATA "312D2D240049123F272C2D353636002D2D36361ED824 24002D2D3 
6363F3F24240006002D363F2C05002D2D3E3F372D2D3E3F372D2D0500004 
34C3E3F3F3F3F0700242424242424242D2D2D2D2D2D2E2E363E3E3635353 
637373F3F3F3F3F3F41282D2D2D 

DATA "2D2C3C3C3C3F3F3F37364640C0282D2D2D2C2C3C3C3F3F3F3F363 
60500092D2D2D2D2D2C2C243F3E3E3F3F3F27272424242C2C2D2D2D35352 
D2427273F3F3F3F3F3E3E36363636363535002D2D2D2D2D2D2C2C2424242 
42427273F3F3F3F3F3F36363636 


Checksum del listato 1 

NOME FILE: APPLE TRIG 
TIPO: A 

LUNGHEZZA: 12B3 
CHECKSUM : 2C 


co cuore del programma. Proprio 
questa sezione, infatti, provvede a 
tracciare il grafico. 

Le linee 1240-1260 permettono di 


sovrastampare un altro grafico. 

Le linee 1370-1570 analizzano l'in¬ 
put utente, convertendo "P" in n, e 
calcolando le frazioni; "3P/2", per 


FIGURA N. 

FIGURA 

1 

"1" 

2 

"2" 

3 

"3" 

4 

"4" 

5 

"5" . 

6 

"6" 

7 

"7" 

8 

"8" 

9 

H 9" 

10 

pi 

11 

"0" 

12 

un unico puntino 
si usa per 
tracciare il grafico 

Figura 1. 


esempio, diventa (3*3.1415927)/2 = 
4.712389. 

Le linee 1590-1620 costituiscono 
la trappola degli errori. 

La linea 1590 intrappola Terrore di 
divisione per zero. Questo errore si 
verifica durante il tracciamento di se¬ 
canti, cotangenti e cosecanti. Quan¬ 
do avviene Terrore divisione per zero 
si salta, con GOTO a linea 1220. 

La linea 1600 intrappola Terrore 
next senza for, inviando l'Apple a li¬ 
nea 1240 se viene trovato un tale er¬ 
rore. 

La linea 1610 reagisce sia a CON- 
TROL-C sia all'input non valido 
(virgole o due punti) facendo bip e 
procedendo. 

La linea 1620, una trappola d’erro¬ 
re, è l'ultima risorsa. Fa bip e puli¬ 
sce lo schermo, poi stampa il codice 
d’errore e il numero della linea nella 
quale è stato trovato Terrore. Si può 
trovare una lista dei codici d'errore e 
del loro significato a pagina. E' da 
sperare che questa linea non venga 
mai eseguita. 

Le linee 1650-1670, infine, usano 
i dati delle linee 1680-1700 per co¬ 
struire una tavola delle figure, che è 
visibile in figura 1. 

( \ 

Questo programma è disponibile 
su dischetto. L’elenco, i prezzi 
e le modalità d’ordine di questo 
e degli altri dischetti disponibili 
sf>no riportati nella rubrica 
Disk Service. 
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applicando 


Ecco un elenco dei computer shop presso i quali è possibile 
abbonarsi ad Applicando, acquistare una copia, cercare un numero arretrato. 


VALLE P'AOSTA 

Aosta: Informatique sas, Av. Conseil 
des Commis 14 - Quart (AO): Infor- 
matique 2, Reg. America 31. 

PIEMONTE 

Alba (CN): Centro computer, Via Pa- 
mzza 2 - Alessandria: Sistemi Bit, 
Via Ghilini 27- Asti: Gestione Dati 
srl, Via B.Buozzi 45 - Biella (VC): 
Consul Computer srl, Via delle Rose 
2; Informatica Biella sas, Piazza S.Pao- 
lo 1/b - Borgomanero (NO): All 
Computer, Corso Garibaldi 106 - Cu¬ 
neo: Thema Inform.Distribuita sas, 
Via Statuto 10 -Domodossola (NO): 
Nuova Elettronica, Via Giovanni 
XXIII 68 - Novara: D.R. srl, Viale 
XX Settembre 19; D.R. srl, Via More- 
ra 3; SPA srl, Via A. Canobbio 16/A - 
Pinerolo (TO): Elaborazione Dati 
Pinerolo, Viale Montebello 6 - Tori¬ 
no: A.B.Computer sas, Corso Grosse¬ 
to 209; Bellucci Benedetto, Via Papaci- 
no 23; Cominfor Sistemi sas, CorsoTe- 
lesio 4/B; Digitalsync snc, Corso Mo- 
ncalieri 303; Dimensione Personal, 
Via Bertola 22/e; GE.NE.CA srl, Via 
XX Settembre 51; Hobby Elettronica, 
Via Saluzzo 11/F-G-H; Omicron Com- 
puters snc, Corso Duca degli Abruzzi 
14; Pinto G.Componenti elettronici, 
Corso Principe Eugenio 15bis; Softec 
Computer srl, Via Juvara 24; Tecno- 
system computer shop, Corso Francia 
12; Tekno Computers srl, Via Mada¬ 
ma Cristina 31/c. 

LIGURIA 

Genova: Computer Center, Via S.Vin- 
cenzo 129r; Sals Informatica spa, Via 
D'Annunzio 2 e Viale B.Partigiane 
132r - Genova Sampierdarena: 
Computer Center sas, Via Storace 4r - 
Lavagna (GE): Raffo Linea Ufficio, 
Corso Genova 100 - La Spezia: So¬ 
ffine srl, Via Piave 19 - Rapallo 
(GE): Raffo Linea Ufficio snc, Via 
della Libertà 130 -Sanremo (IM): 
La Bottega del Computer, Via Martiri 
Libertà 180 - Savona: Briano snc, 
Corso Tardy e Benech 20r - Sestri Po¬ 
nente (GE): All Computer sas, Via 
C. Menotti 136r. 

LOMBARDIA 

Almè (BG): Elcod, Viale Italia 45/A 
Assago (MI): Basic Computers, Cen¬ 
tro Commerciale Milanofiori- Berga¬ 
mo: Il Mondo dell'Informatica, Via Pi- 
tentino 8; Studio 15 srl, Via Quarenghi 
60 - Brescia: Alfa Computer, Via 
Bassi 26; Brescia Computers srl, Via 
Malta 12; Il Computer srl, Via Solferi¬ 
no 5; Personal Data, Via Brozzoni 4 - 
Como: Accaesse Informatica srl, Via 
Acquanera 46; D.S.I. srl, Via Dottesio 
8; Irpe Informatica srl, Via Cadorna 
l/a - Cremona: Archimede, Via Pale¬ 
stre 11/b - Gallarate (VA): Irpe 
Computer srl, Va Pegoraro 8 - Gavar- 
do (BS): Bit Shop, Via G.Quarena 
120 - Lecco (CO): Computer Lecco 
snc, Via N.Bixio 18/b; Datamation, 
Viale Turati 40 - Lissone (MI): Com- 
puterlandia, Via Martiri Libertà 72 - 
Mantova: Antek Computer sas, Via 
Cavour 69 - Melegnano (MI): L’A¬ 
mico del Computer, Via Castellini 25 - 
Milano: A.G.Infoimatica srl, Via G. 
Silva 49; All'Informatica Shop, Via 
Lazzaretto 2; All'Informatica srl, Via 
Vigevano 8; Communications Enginee¬ 
ring, Piazza Firenze 4; Deltron srl, 
Viale Gran Sasso 50; Esprit, Via Ber¬ 
gamini 13; Happy System, Piazza Diaz 
6; Il Tempio ael Computer, Via Patta- 
ri 2; Indico srl, Via Marco d’Agrate 1; 
Indico srl,Via Pier Capponi 12; Infor¬ 
mation Technology, Via dei Bossi 7 
ang. Broletto; La Bottega Informatica 
srl, Via Turati 6; Macan sas, Via Bro¬ 
letto 39; Microtech Sistemi, Viale Pia¬ 
ve 7; Polisisterni,Via Dema 19; SH 


Computer srl, Viale Montenero 33; 
Small Business Computers, Via Vitru- 
vio 38; Softec Computer, Viale Jenner 
23 - Monza (MI): ESI srl, Via Cava- 
lotti 11; Nikom Electronics, Via Asia¬ 
go 7 - Pavia: M.A.S.H. Computer 
Systems, Via della Rocchetta 5; Senna 
Gianfranco snc, Via Calchi 5 - S. Anto¬ 
nio Mantovano (MN): Antek Com¬ 
puter sas, Via Manzoni 49 -Trezzano 
sul Naviglio (MI): Personal Compu¬ 
ter Shop, Via L da Vinci 36 -Varese: 
IRPE srl, Via Carantani 1 - Villasan¬ 
ta (MI): Computer Area show room, 
Via Carducci 2; Computer Area snc, 
Via Volta 27/a. 

TRENTINO 

Bolzano: Dataplan, Sparkasse Strasse 
9 - Merano: Computer Market, Via S. 
Maria del conforto 22 - Trento: 
SI.GE. sas, Via Piave 28. 
FRIULI-VENEZIA GIULIA 
Gorizia: Elcom, Corso Italia 149 - 
Pordenone: Electronic Center snc, 
Viale Libertà 79; Electronic Center, 
Viale Martelli 17 - Trieste: Compu- 
termarket, Via Val dirivo 6 -Turriaco 
(GO): Tecno Power Elettronica, Via 
Marconi 19 - Udine: Bit Computers, 
Via Pozzuolo 107; PS Elettronica sas, 
ViaTavagnacco 89/91 c.c. 

VENETO 

Bassano del Grappa (VI): A-Tre 
snc, Piazza Firenze 23 - Conegliano 
(TV): Computing Program, Via 
G.Piovesana 32; De Marin Computers, 
Via Matteotti 142 - Creazzo (VI): 
Uomo Computer, Via Olmo 38 - Me¬ 
stre (VE): Pacinotti sas, Via Torino 
92 -Mirano (VE): Saving Elettroni¬ 
ca, Via Gramsci 40 - Montebelluna 
(TV): Uomo Computer, Corso Mazzi¬ 
ni 53 - Montecchio Magg.(VI): Ef- 
fecomp (Esa), Piazza Carli 2 - Pado¬ 
va: Capovilla & C. sas, Galleria Scro- 
vegni 5; Computer Service srl, Via 
Beethoven 3;EDPSistemi srl, ViaBor- 
romeo 13 - Rovigo: Computer Servi¬ 
ce sas, Via Cavallotti 12 Treviso: A5 
Computers srl, Borgo Cavour 37/a - 
Venezia: Personal Computer, Canna¬ 
regio 5894- Verona: ARMU srl, Via 
Teatro Filarmonico 3; Chip Computer 
(Esa), Stradone S. Fermo 8; Esacomp 
srl, Via Roveggia 43; MOS 80 sas, Via 
Germania 21; MOS 80 Computer 
Shop, Via del Pontere 2; MOS 80 Per¬ 
sonal Computers, Largo Marzabotto 
21- Vicenza: Abc Infoimatica srl, 
Contrà Porta Padova 19; Abc Informa¬ 
tica srl, Viale S.Lazzaro 19; Sevi sas, 
Via S.Agostino 87 -Villafranca 
(VR): Studio 4, Corso V.Emanuele 
65. 

EMILIA R P.MACNA 

Bologna: Ceda Minicomp sr, Piazza 
Aldrovandi 2/2; Computer Systems, 
Via Ercolani 10/d; Edp Sistemi BO, 
Viale Pietramellara 61/F; Lucky 
Systems, Via Farmi 33/a; Sercom, Via 
B. da Carpi 9/b - Carpi (MO): Iret 
Carpi, Via Berengario 58 - Cesena 
(FO): SHC snc, Via Pisa 40/42 -Ferra¬ 
ra: Mazzacurati Claudio, Viale Ca¬ 
vour 186/188; Soc. Termomeccanica, 
Via Tito Speri 5; Tecnomeccanica, Via 
Garibaldi 195 - Fidenza (PR): Archi- 
mede, Via Vito Aimi 2; RCM Compu¬ 
ter, Via Comini Malpeli 11 - Fio- 
renzuola d'Arda (PC): Centro 
Computer, Corso Garibaldi 125/a - 
Forlì: A-Z Computer srl, Via Cignani 
7; Icof Impianti srl, Via Masetti 56; 
Kronos, Via O. Regnoli 30 - Imola 
(BO): Computers srl, Via S.P.Grisolo- 
go 38 -Modena: Canal grande Infor¬ 
matica, Corso Canalgrande 29; Masetti 
Elettronica srl, Via Emilia Centro 211 - 
Parma: Computek sas, Piazzale Boito 
5; Iret spa, Via Cavallotti 3; RCM 
Computer, Va Farmi 51/a - Piacen¬ 


za: PC Personal Computer, Via Chiap¬ 
poni 42; RCM Computer, Corso V. E- 
manuele 96 - Reggio Emilia: Com¬ 
puter Center srl, Via D. Alighieri 4; E- 
saprogetti, Via F.Filzi 2; Iret spa, Via 
Emilia S.Stefano 32 - Rimini: Compu¬ 
ter Line, Via Coletti 61 - Sassuolo 
(MO): Iret Sassuolo, Via Pretorio 65 - 
Scandiano (RE): Informatica 

System, Via Statale 13/a - Viserba di 
Rimini (FO): Computer Center, Via 
Pallotta 25/a. 

TOSCANA 

Arezzo: Sisted srl, Via Galvani 22; Si- 
sted srl, Piazza Risorgimento 10 - Bor¬ 
go a Buggiano (PT): CO-DI snc, 
Via 24 Maggio 119 - Firenze: Anfrel 
Informatica sas, Via Masaccio 50 e Via¬ 
le Gramsci 10/r; Centro Servizi srl, 
Via Petrocchi 24; Computer Line srl, 
V ialeSpartacoLavagnini 20; Elettroni¬ 
ca Cento Stelle srl, Via Cento Stelle 
5/b; Line spa, Via G.Di Vittorio 10; 
Paoletti Ferrerò, Via il Prato 40/42r; 
P.T.E. snc, Via Duccio da Buoninse-. 

f na 60; Soluzioni EDP srl, Corso dei 
intori 39r; Tuttocomputer (centro 
servizi), Via Panzani 36/38r - Forte 
dei Marmi (LU): Blu Data, Via Mo- 
rin 95 - Grosseto: C.I.S.I.D. Compu¬ 
ter snc, Via Papa Giovanni XXHI 4 - 
Livorno: Livinform 2, Scali delle 
Cantine 62; Livinform srl, Via Roma 
8 (piazza Attias) - Massa: Euro Com¬ 
puter sas, Piazza C. Bertagnini 4 - 
Montecatini (PT): Co-Di snc, Via 1 
Maggio 20/22, Fraz.Margine Coperta - 
Perignano (PI): Memor Informatica 
srl, Via Togliatti 2/4/8 - Piombino 
(LI): Centro Ufficio sdf, Via F.Fer- 
rer 37/39 - Pisa: Data Pori due, Via 
Sancasciani 35; Società Elettronica Tir¬ 
rena, Via Fucini 20 - Pistoia: Inter 
Systems, Via Mascagni 14 - Pontede- 
ra (PI): Data Pori srl, Via Brigate 
Partigiane 27 - S.Giovanni Valdar- 
no (AR): I.C.S. srl, Via Garibaldi 
46. 

UMBRIA 

Cerbara di Città (PG): Computer 
Post, Via Madonna del Vento - Foli¬ 
gno (PG): Linea Informatica snc, Via 
Garibaldi 81- Perugia: Icot Impianti, 
Via Cicioni 8 Ponte S.Giovanni 
(PG): Ready Computer srl, Via Adria¬ 
tica 49. 

LAZIO 

Latina: Easy Byte, Viale XVIII Di¬ 
cembre 44 Lido di Ostia (Roma): 
A.C.S. Advanced Computer System, 
Via Consacchi 10; Cosmic srl, Via del¬ 
le Gondole 168/170-Ostia (Roma): AG 
Computer Systems srl, Via A. Carabel¬ 
li 108/112 - Roma: AG Computer 
Systems srl, Via G.Lanza 101/105; 
Biotech srl, Via S.Valentino 18; Bit 
Computers 2, Viale Ionio 333/335; Bit 
Computers 3, Via Nemorense 14/16; 
Bit Computers Nord, Via Tuscolana 
350/350a; Bit Computers Star, Via 
F.Satolli 55/59; Compushop, Via No- 
mentana 265/273; Computer Center 
srl, Via Nizza 48/52; Computerart srl, 
Via Michele di Landò 41 ; Computime 
srl, Via Cola di Rienzo 28; Computime 
srl, Viale Parioli 25; Cosmic srl, Via 
Viggiano 70; Cosmic srl, Via Vespasia¬ 
no 56/b; Easy Byte, Via G.Villani 24; 
EDP Market, Via Somalia 205; EM 
Eur Micro Computer, Viale C. Pavese 
267; FBM di Mario Bagnetti, Via Fla¬ 
minia 395; SIPREL srl, Via Pompeo 
Magno 94 - Roma EUR: Bit Compu¬ 
ters, Via F.Domiziano 10-Viterbo: Al¬ 
fa Computer, Via Palmanova 12/c. 
MARCHE 

Ascoli Piceno: Rinascita Informati¬ 
ca sas, Corso Trento e Trieste 17-Ca- 
merino (MC): MED, Via V.Venanzi 
11/13 - Civitanova Marche (MC): 
NBP Elettronica, Via Don Bosco 


11/13-Fabriano (AN): MED, Piazza 
Rosselli 6-Jesi (AN): EMJ sas, Via 
F.Conti 4; New Computer srl, ViaPer- 
golesi 271- Macerata: MED, Via 
Mozzi 72/a -Torrette di Ancona 
(AN): Sisteda spa, Via Flaminia 
286/a; Sisteda srl, Via Velino 5. 

ABRUm» 

Avezzano (AQ): Aspron, Via Ameri¬ 
ca 10/12 - Chieti: Computer sdf, Via¬ 
le Unità d'Italia 5 - L'Aquila: SEAD 
srl, Via Giardini 16a - Lanciano 
(CH): Electronic Microsystems, Via 
della Pace 3- Pescara: OCSA srl, Via¬ 
le Marconi 361 (zona stadio); Ormi 
Computers srl, Via C. Goldoni 5 -Va¬ 
sto Marina (CH): OCSA srl, S.S. A- 
driatica. 

MOLISE 

Boiano (CB): Iannotti Giovanni, Lar¬ 
go Duomo 14 - Campobasso: Infor¬ 
matica Molisana, Via B. Buozzi 12. 

LAME ANTA 

Avellino: ICC Elettronica srl, Via de¬ 
gli Imbimbo 126 - Barano d'Ischia 
(NA): Matterà Antonio, Via Roma 61- 
Benevento: Masone Informatica, Via¬ 
le dei Rettori 57- Caserta: Sistel 
Computers, Corso Trieste 124 - Napo¬ 
li: Computer Systems srl, Via Puccini 
19; Golden Computer srl, Via Miche¬ 
langelo 7; IC International Computer 
srl, Via Nuova S.Rocco 62/P.co Solea- 
do; IC International Computer, Via Po- 
sillipo 130; La Barbera Carlo sas, Via 
Toledo 320 - Salerno: Computer 
System, Via E.Bottiglieri 19; SEDA 
srl, Via Parmenide c/o lannone. 

BASILICATA 

Matera: Lucana Sistemi srl, Via Don 
Minzoni 4. 

PUGLIE 

Bari: Auditorium 3, Piazza Massari 
15; Ciesse spa, Via Re David 176/d; 
L.e L. Computers srl, Largo 2 Giugno 
4-Brindisi: SIC srl, Via S.Giovanni Bo¬ 
sco 109 - Foggia: ISI srl, Via Matteot¬ 
ti 83 - Lecce: Quasar Informatica srl, 
Via Giacomo Arditi 11 - Molfetta 
(BA): Auditorium 3, Piazza Garibaldi 
12/a - Putignano (BA): Amore & 
Computer, Via G.Laterza 28-Taran- 
to: Elettrojolly Centro srl, Via De Ce¬ 
sare 13. 


CALABRIA 

Catanzaro: Ce Sim sas, Via Carlo V 
174/180; Visicom srl, Via Minniti Ip¬ 
polito 10 - Cosenza: Micro System 
sdf, Via Roma 75 - Gioia Tauro 
(RC): Tecnocomp snc, Via Nazionale 
SS 111/117 - Reggio Calabria: 
GLM Informatica snc, Via De Nava 98 
- Spezzano Albanese (CS): Iannibel- 
li, ViaStragolia 48. 

SICILIA 

Catania: Carici Francesco, Via Ala 
57/59; Centro Informatica sdf. Via Fi¬ 
renze 211 ; Computer Shop, Via E. Or¬ 
lando 164; SI.EL Informatica snc, 
Piazza Galatea 2 - Messina: CEE srl, 
Via Industriale 116; Cubeta srl, Via 
Cardines 12/14; Libreria Bonanzinga, 
Via dei Mille 110 - Milazzo (ME): 
Tectron Tecnologie Elet. srl, Via dei 
mille - Palermo: Computer Shop (In- 
f.Comm.), Via Notarbartolo 23/bc; In¬ 
formatica Commerciale spa, Via No¬ 
tarbartolo 26 - Ragusa: Sosyco, Corso 
V.Veneto 597 -Trapani: Gualano Eu¬ 
genio, Via Virgilio 11. 

SARDEGNA 

Cagliari: SE, Via S.Lucifero 85 - Sas¬ 
sari: Bajardo, Viale Italia 16. 
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Per chi 
comincia 



Nuovi lettori, siate i benvenuti. Queste 
pagine sono per voi, e le ripeteremo a o- 
gni numero per facilitare il primo incon¬ 
tro con Applicando e con il mondo di Ap¬ 
ple. Ovviamente queste righe non intendo¬ 
no sostituire i manuali, dei quali consiglia¬ 
mo caldamente la lettura, ma possono ba¬ 
stare per chi intende soltanto utilizzare i 
programmi che pubblichiamo, copiarli, 
salvarli su dischetto e farli partire. 

Cominciamo con qualche rapidissima 
premessa su Apple II. Quando accendete 
per la prima volta il vostro Apple con un 
dischetto già inserito nel drive e la tastie¬ 
ra posizionata sull'inglese (per chi possie¬ 
de Apple Ile e Ile), dovreste veder compari¬ 
re sullo schermo il segno "[", chiamato 
cursore, o prompt, in inglese. Mentre se a- 
vete la tastiera posizionata sull'italiano, 
vedrete é. La sua presenza significa che 
potete fare una di queste tre cose: 

1) Fornire al computer comandi destina¬ 
ti al drive (per esempio CATALOG mostra 
il contenuto del dischetto, se si tratta di 
un dischetto in Basic). 

2) Fornire comandi nella versione per 
Apple del linguaggio Basic (e cioè l’Ap- 
plesoft Basic). 

3) Battere sulla tastiera righe di pro¬ 
grammi in Applesoft Basic. 

Per copiare un programma da Applican¬ 
do potrà essere necessario fare tutte e tre 
le cose. 

Per battere un programma 
di Applicando 

Per prima cosa sarà opportuno leggere 
fino in fondo l'articolo che accompagna il 
programma. Può darsi che non capiate pro¬ 
prio tutto la prima volta: non preoccupate- 
vene, in seguito diventerà facilissimo. 
Cercate soprattutto le eventuali istruzioni 
che spiegano se occorre fare qualcosa di 
particolare per battere il programma. In o- 
gni caso assicuratevi di aver pronto un di¬ 
schetto già iniziaiizzato per poter salvare 
quel che avrete battuto. Per i dettagli su 
come inizializzare un dischetto vergine, 
guardate i manuali; chi proprio ai manuali 
fosse allergico, faccia così: a Apple spen¬ 
to inserisca il dischetto System Master 
nel drive 1, e accenda il computer; quando 
il drive avrà smesso di girare (lueina rossa 
di nuovo spenta), tolga il System Master 
dal drive e inserisca al suo posto un di¬ 
schetto sicuramente vergine e sicuramente 
mai usato (attenzione: si possono reinizia- 
lizzare anche dischetti già usati, ma il lo¬ 
ro contenuto va irrimediabilmente perso); 
ora basta battere NEW, Return, e poi INIT 
HELLO, sempre seguito da Return. 

Tutti i programmi in Basic consistono 
di una sequenza di righe di istruzioni. Tut¬ 


te le righe sono numerate all'inizio, e pos¬ 
sono contenere una o più istruzioni. Se le 
istruzioni sono più d'una, esse saranno se¬ 
parate da segni di due punti (:). Per e- 
sempio: 

20 FOR J = 1 TO 5: PRINT CHR$(7): 

NEXT J 

Per copiare da Applicando un program¬ 
ma, inserendolo nel vostro Apple, occorre 
assicurarsi che la memoria operativa del 
computer sia vuota battendo NEW Return 
(questa istruzione non cancella nulla di 
ciò che è registrato sui vostri dischetti: li¬ 
bera soltanto la memoria del computer dal¬ 
l'ultimo programma usato), ed è necessa¬ 
rio poi battere i listati così come sono 
stampati, riga per riga, compresi i nume¬ 
ri di riga, battendo Return solo quando si 
arriva al numero di riga successivo. Quan¬ 
do sarà stata copiata anche l'ultima riga e 
l'ultimo Retum (a fine riga), si potrà sal¬ 
vare il programma su dischetto (il dischet¬ 
to che avete inizializzato, o un altro già i- 
nizializzato in precedenza su cui ci sia spa¬ 
zio libero a sufficienza). Per salvarlo ba¬ 
sterà battere il comando SAVE, seguito 
dal nome che intendete dare al programma 
che avete trascritto. Questo è tutto, ma ve¬ 
diamo passo per passo un esempio. 

10 REM CAMPANELLO 

20 FOR J = 1 TO 5: PRINT CHR$(7): 

NEXT J 
30 END 

Listato 1 

Per battere il semplice programma Cam¬ 
panello del listato 1 (produce solo un suo¬ 
no simile a quello di un campanello, nul- 
l'altro), si seguirà questa sequenza: 

1) Battete NEW Retum per cancellare 
dalla memoria qualsiasi programma prece¬ 
dentemente usato. (Se state lavorando su 
un Apple Ile o un Ile assicuratevi che il ta¬ 
sto CAPS LOCK, il primo in basso a sini¬ 
stra, quello che permette di ottenere tutte 
le maiuscole, sia schiacciato.) 

2) Battete la linea 10 esattamente com’è 
stampata e premete il tasto Retum solo 
alla fine dell'ultima parola (CAMPA¬ 
NELLO). 

3) Battete allo stesso modo anche le li¬ 
nee 20 e 30. 

4) Con un dischetto già inizializzato 
nel drive (nel drive 1, se ne avete due), 
battete SAVE CAMPANELLO Return, per 
registrare il vostro programma su di¬ 
schetto. 

5) Poiché il vostro programma è ancora 
nella memoria del computer, per farlo gira¬ 
re basterà battere RUN e premere il tasto 
Retum. Se cancellate la memoria facendo 
girare un altro programma o spegnendo il 
computer, per usare nuovamente il pro¬ 


gramma occorrerà inserire il dischetto nel 
drive e battere RUN CAMPANELLO Re¬ 
tum. 


Alcuni suggerimenti 

I suggerimenti che seguono possono 
rendere il lavoro di trascrizione un po' più 
facile: 

1) Se commettete un errore di battitura 
in una riga e non avete ancora premuto il 
tasto Retum, basterà tornare indietro con 
la freccetta sinistra, correggere l'errore, e 
tornare al punto in cui eravate con la frec¬ 
cetta destra, premendo Retum come al so¬ 
lito solo a completamento dell'intera riga. 
Se invece vi accorgete delferrore quando 
ormai avete premuto Retum e siete passati 
a un'altra riga, completate tranquillamente 
la riga che state scrivendo, compreso il 
Retum finale; poi ribattete la riga in cui a- 
vete commesso l'errore: ribattetela per in¬ 
tero, con numero di riga e tutto il resto, e 
la nuova versione prenderà automaticamen¬ 
te il posto della vecchia. 

2) Siate particolarmente attenti a non 
commettere errori di trascrizione nelle ri¬ 
ghe in cui compare l'istruzione DATA. Nel¬ 
le altre istruzioni un eventuale sbaglio è 
più facile da individuare, perché penserà e- 
ventualmente il computer a segnalarlo in 
seguito, nelle istruzioni DATA questo in¬ 
vece non avviene. 

3) Salvate periodicamente il programma 
mentre procedete, per minimizzare i guai 
di una eventuale interruzione di corrente. 
Se non avete tempo per trascrivere tutto il 
programma, trascrivete fin dove potete o 
volete (ma comunque completando fino al 
Retum la riga che state battendo), poi sal¬ 
vatelo su dischetto come se aveste finito. 
Per riprendere a trascrivere sarà sufficiente 
inserire il dischetto nel drive, accendere il 
computer, e battere LOAD seguito dal no¬ 
me che avete dato al programma, e da Re¬ 
tum (battete CATALOG se non ricordate 
più con che nome avete salvato il pro¬ 
gramma). La luce rossa sul drive si accen¬ 
derà, e il vostro programma verrà caricato 
nella memoria operativa del computer. A 
questo punto battete LIST, e vedrete scorre¬ 
re sullo schermo tutta la parte del pro¬ 
gramma che avevate già battuto. Continua¬ 
te adesso tranquillamente dal punto in cui 
avevate interrotto. 

4) Prima di effettuare modifiche o ag¬ 
giunte, trascrivete l’intero programma e fa¬ 
telo girare per prova. Questo renderà più 
facile la ricerca di eventuali errori, isolan¬ 
do quelli commessi durante la battitura e 
la trascrizione. Non preoccupatevi per il 
numero di errori di trascrizione che farete: 
è normale. Il computer vi segnalerà, riga 
per riga, dove avete sbagliato. Basterà a 
questo punto controllare la riga, indivi- 
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duare Terrore commesso e ribattere corret¬ 
tamente l'intera riga. A questo punto oc¬ 
corre salvare di nuovo il programma su di¬ 
schetto. 

5) Le lettere minuscole possono essere 
usate solo aH'intemo di comandi che inclu¬ 
dono REM o tra virgolette. 

Programmi in 
linguaggio macchina 

Il Basic e il Dos sono ottimi linguaggi, 
ideati apposta per rendere più facile la pro¬ 
grammazione, ma l'Apple è in grado di ri¬ 
cevere comandi anche in un codice molto 
più vicino alla sua logica, chiamato lin¬ 
guaggio macchina. Il linguaggio macchi¬ 
na è un po' la lingua madre dell'Apple, un 
programma così composto sarà quindi 
compreso dal computer molto più veloce¬ 
mente di un programma scritto in Basic. 
Per creare programmi in questa lingua si u- 
sa spesso un programma chiamato Assem¬ 
bler. L'Assembler permette al programma¬ 
tore di scrivere in un codice più facile del 
linguaggio macchina: Tassembly. In un se¬ 
condo momento il programma stesso si 
tradurrà in linguaggio macchina. L'Apple 
infatti non conosce Tassembly. 

Molti dei programmi che troverete su 
Applicando saranno scritti in ambedue le 
versioni: assembly e linguaggio macchi¬ 
na; in questo modo potrete inserire le i- 
struzioni direttamente in linguaggio mac¬ 
china, senza dovervi procurare il program¬ 
ma Assembler. In questo caso le istruzioni 
dovranno essere inserite direttamente nel 
System Monitor (da non confondere col 
monitor video): per raggiungere il System 
Monitor è sufficiente battere CALL-151 e 
schiacciare il tasto Return. A questo punto 
sullo schermo comparirà un asterisco (*) 
che indica che è stato raggiunto il contat¬ 
to con il System Monitor. Per inserire i li¬ 
stati scritti in linguaggio macchina occor¬ 
rerà allora battere, per esempio, i seguenti 
comandi: 


300:A2 05 20 DD FB CA F0 03 4C 02 03 
60 Retum 


In questa serie di istruzioni il '300' indi¬ 
ca una locazione di memoria e i due punti 
dicono all'Apple di inserire i seguenti nu¬ 
meri (A2 e gli altri numeri in base 16) in 
quella locazione. I numeri sono in base 
16 (esadecimale); non è necessario saper 
calcolare con questa base per trascrivere i 
programmi in linguaggio macchina, ma è 
importante sapere che in questo tipo di 
linguaggio i numeri sono dati sempre in e- 
sadecimale. 

Facciamo un breve esempio di program¬ 
ma scritto in linguaggio macchina. Il se¬ 
guente listato serve a indirizzare alcuni da¬ 
ti in una particolare locazione di me¬ 
moria: 


300.30B 

0300-A2 05 20 DD FB CA F0 03 
0308-4C 02 03 60 

Listato 2 


I numeri a sinistra delle lineette (atten¬ 
zione: le lineette non vanno digitate, al 
loro posto occorre battere un "due punti") 
sono le locazioni di memoria, vale a dire 
gli indirizzi dello spazio di memoria in 


cui il dato dovrà essere conservato, e i nu¬ 
meri seguenti sono il contenuto, i dati da 
memorizzare nelle sette locazioni di me¬ 
moria indicate. I due numeri separati da un 
punto presenti nella prima riga indicano 
gli indirizzi iniziali e finali della parte di 
memoria considerata. Questo programma è 
la traduzione del listato numero tre, scrit¬ 
to in assembly. Come si noterà le colon¬ 
ne a sinistra sono molto simili al listato 
numero due, contengono infatti le locazio¬ 
ni di memoria, mentre la parte a destra 
contiene istruzioni in assembly. Esistono 
diversi programmi assembler e diverse di¬ 
sposizioni dei listati, ma in tutti sono pre¬ 
senti queste due diverse colonne. 


1 *RINGER PROGRAM 



2 

ORG 

$300 


3 

BELL EQU 

$FBDD 

0300: A2 05 

4 

LDX 

#$5 

0302: 20 DD FB 5 

LOOP JSR 

BELL 

0305: CA 

6 

DEX 


0306: F0 03 

7 

BEQ 

END 

0308: 4C 02 03 

8 

JMP 

LOOP 

030B: 60 

9 END RTS 



Listato 3 


Per inserire i listati nella macchina è 
sufficiente eseguire le seguenti opera¬ 
zioni: 

1) Digitare CALL-151 Retum per entra¬ 
re in contatto con il System Monitor, poi 
inserire la locazione di memoria, i due 
punti e il contenuto della memoria; nel ca¬ 
so del listato numero due ad esempio si di¬ 
giterà: 


300:A2 05 20 DD FB CA F0 03 Retum 
308:4C 02 03 60 Retum 


Un programma in Assembler sarà inve¬ 
ce così inserito: 


300:A2 05 Retum 
302:20 DD FB Retum 

305 :CA Retum 

306 :F0 03 Retum 
308:4C 02 03 Retum 
30B:60 Retum 


State attenti a non inserire lo spazio tra 
i due punti e il primo numero seguente, 
mentre invece bisogna mettere lo spazio 
fra le coppie di numeri. 

2) Una volta inserito l'intero listato, 
schiacciate CTRL-C Retum per tornare al 
livello Basic indicato dal segno '['. 

3) Al contrario dei programmi in Basic 
che iniziano nella stessa locazione di me¬ 
moria, e che possono essere salvati con 
un semplice SAVE, i programmi scritti in 
linguaggio macchina possono iniziare in 
diversi punti della memoria. Per salvare li¬ 
stati o dati in linguaggio macchina si do¬ 
vrà indicare quindi la locazione alla quale 
ha inizio il programma da salvare e la lun¬ 
ghezza dello stesso (in decimale o in esa¬ 
decimale). Per il programma usato prima 
come esempio, il comando sarà: 


BSAVE RINGER, A$300, L$C 


dove A$300 è la locazione di memoria di 
inizio programma e L$C è la lunghezza 
del programma (la lettera C corrisponde al 
numero decimale 12). All'inizio dei lista¬ 
ti in linguaggio macchina pubblicati su 
Applicando troverete sempre l'indicazione 




della locazione di memoria di inizio e fine 
programma; esempio: 300.3EA mentre nel 
corso dell'articolo troverete i parametri 
per salvare il programma, esempio: BSA¬ 
VE RINGER, A$300,L$C. 

4) Per rivedere il listato che avete tra¬ 
scritto basterà battere 300.30B, e sullo 
schermo si riprodurrà tutto ciò che avete 
battuto. Per ottenere una copia sulla stam¬ 
pante, basterà battere PR # (# se siete in 
tastiera italiana) seguito dal numero dello 
slot al quale avete collegato la stampante 
(normalmente il n. 1) Retum e poi ancora 
300.30B Retum. Le correzioni si fanno ri¬ 
battendo solo la riga contenente eventuali 
errori. 

5) Per far girare il programma basterà al¬ 
lora digitare BRUN RINGER, senza l'indi¬ 
rizzo. 

Quanto esposto sopra è valido sia per il 
DOS 3.3 (sistema operativo per la gestio¬ 
ne del drive che veniva fornito prima del¬ 
l'uscita del Ile) sia per il ProDOS (sistema 
operativo fornito con il Ile). Usando il 
ProDOS occorre però fare alcune precisa¬ 
zioni. I comandi del tipo SAVE, LO AD, 
RUN, CATALOG, ecc. vengono accettati 
anche in forma minuscola. 

Per formattare un disco non si potrà più 
usare il comando INIT HELLO, ma sarà ne¬ 
cessario usare il disco UTILITIES di Siste¬ 
ma fornito con il computer. Durante questa 
operazione vi verrà chiesto se il nome del 
disco, assegnato automaticamente dal com¬ 
puter, va bene oppure se volete cambiarlo. 
Infatti tutti i dischi formattati in ProDOS 
(indicati come Volume) hanno un nome e 
vengono riconosciuti indicando questo no¬ 
me dopo un comando diretto al drive. Per e- 
sempio se volete vedere il catalog di un di¬ 
sco chiamato BLANK, dovete battere 
CAT/BLANK. Per non ripetere continua- 
mente il nome del disco potete battere, pri¬ 
ma dei comendi diretti al drive, PREFIX/no- 
me disco seguito da Retum. Da questo mo¬ 
mento tutti i comandi al drive saranno di¬ 
retti automaticamente al disco scelto. 

Per vedere il catalog è sufficiente batte¬ 
re CAT. 

Durante l’uso di alcuni programi scritti 
in ProDOS potreste trovarvi una richiesta 
del tipo "PATHNAME?"; non spaventate¬ 
vi, il pathname è il nome del disco al qua¬ 
le vogliamo fare riferimento, scritto entro 
due barrette (/) e seguito dal nome del file 
che vogliamo salvare o caricare in memo¬ 
ria oppure trasferire da un disco a un altro. 


DOS e ProDos 

L'Apple Ile e il nuovo Ile vengono ven¬ 
duti con il sistema operativo ProDos che 
comprende un dischetto chiamato "Utili¬ 
ties di Sistema". Con le opzioni in esso 
contenute è possibile: 

• trasferire un file da un dischetto a un 
altro in tutti e tre i sistemi compatibili 
con l’Apple: DOS, ProDos, Pascal; 

• convertire i file da DOS a ProDos e vi¬ 
ceversa; 

• modificare la configurazione standard 
delle uscite seriali per stampante e mo¬ 
dem e anche scambiarle tra di loro; 

• formattare i dischetti nel sistema 
DOS, ProDos, Pascal. 

Queste sono solo alcune delle moltepli¬ 
ci possibilità offerte dal dischetto "Utili¬ 
ties di Sistema"; c'è però un piccolo pro- 
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blema: mentre per il sistema ProDos e Pa¬ 
scal dopo aver formattato il dischetto oc¬ 
corre memorizzare su di esso i file necessa¬ 
ri affinché alla riaccensione della macchi¬ 
na sia possibile ricaricare in memoria il 
sistema operativo scelto (ad esempio Pro¬ 
Dos e Basic.System per il ProDos), nel ca¬ 
so del DOS normalmente il sistema opera¬ 
tivo viene memorizzato sul dischetto al¬ 
l'atto della sua formattazione, perché non 
è possibile caricarlo in un secondo 
tempo. 

Purtroppo il dischetto "Utilities di Siste¬ 
ma" formatta il dischetto in DOS senza in¬ 
serire il sistema operativo trattandolo co¬ 
me un Disco Dati e non come un disco di 
avvio (boostrap). L'utente quindi, se non 
possiede già un altro dischetto in DOS 
contenente il sistema operativo (come i di¬ 
schetti di Applicando ), non può utilizzare 
questo disco per memorizzarvi i program¬ 
mi copiati da Applicando o i propri pro¬ 
grammi scritti in DOS. 

Applicando ha pensato di ovviare a que¬ 
sto inconveniente fornendo a basso prez¬ 
zo (vedi Disk Service) un dischetto in 
DOS contenente sia il sistema operativo 
sia alcune utility per gestire i file in 
DOS. 

Per inizializzare un nuovo dischetto con 
il D.O.S 3.3, inserite nel drive il disco 
DOS.UTILITIES e accendete il computer. 
Dal Menù principale scegliete l'opzione 
FINE e battete RETURN. Sostituite il di¬ 
schetto nel drive con uno nuovo da inizia¬ 
lizzare e battete INIT HELLO seguito da RE¬ 
TURN. Il drive verrà attivato e, dopo circa 
un minuto, il nuovo dischetto sarà pronto 
per essere utilizzato e conterrà il sistema 
operativo D.O.S 3.3. 

Un'idea per aiutare coloro che desidera¬ 
no copiare i listati pubblicati su Appli¬ 
cando , ma, arrivati al termine, vengono 
scoraggiati dal -mancato funzionamento 
dei programmi stessi per immancabili erro¬ 
ri di copiatura: risparmiare loro il metico¬ 
loso lavoro di controllo, con il program¬ 
ma, pubblicato a pag. 36 di Applicando 
25, APPLE CHECKER 3.0; permette di 
controllare il listato ricopiato confrontan¬ 
do il risultato ottenuto con i valori da noi 
indicati al termine di ogni listato. 

La procedura è molto semplice: 

• al termine di ogni listato troverete al¬ 
cune righe indicanti il nome del listato, 
il tipo di linguaggio nel quale è stato 
scritto (A=applesoft, B=binario), la sua 
lunghezza in esadecimale, e infine un dato 
importante che permette di sapere se avete 
copiato il listato senza errori: la CHE- 
CKSUM. 

• caricate in memoria APPLECHECKER 
con l'istruzione BRUN, caricate in memo¬ 
ria con fistiamone LOAD o BLOAD il pro¬ 
gramma da controllare, battete CALL 25 e 
in pochi secondi avrete la sentenza. Se il 
programma da controllare è un listato bi¬ 
nario, occorre caricarlo in memoria tra¬ 
mite l'istruzione BLOAD nome program¬ 
ma, A$B00, per avere la certezza di non in¬ 
terferire con APPLECHECKER. 

Questa utility funziona solo in D.O.S. 
3.3. 

Per i programmi funzionanti in ProDos 
esistono due strade: copiare il programma 
in DOS, fare il controllo e quindi conver¬ 
tirlo in ProDos; oppure copiarlo in Pro¬ 
Dos e, nel caso di non funzionamento, 
convertirlo in DOS per effettuare il con¬ 
trollo con APPLECHECKER 3.0. 


Per chi comincia 
su Macintosh 


Per poter utilizzare i programmi per Mac¬ 
intosh pubblicati su Applicando dovete es¬ 
sere in possesso del dischetto fornito da 
Applicando attraverso il Disk Service, op¬ 
pure di una copia del Basic Microsoft (MS 
BASIC 2.0 o versioni più recenti). 

Se acquistate il dischetto, il programma 
girerà, perché sullo stesso dischetto è pre¬ 
sente il Runtime del Basic Microsoft, che 
consente di far funzionare il programma, 
senza però poterlo listare o modificare. Se 
invece disponete del Basic Microsoft, per 
iniziare inserite il vostro disco e accende¬ 
te il Mac. 

Vi accorgerete che esistono due versio¬ 
ni separate di MS BASIC, una decimale e 
una binaria. L'icona per la versione deci¬ 
male ha il segno del dollaro ($), questa 
versione è adatta soprattutto per program¬ 
mi di gestione monetaria. 

L'icona per la versione binaria ha il 
simbolo del pi greco e adatta soprattutto 
per calcoli matematici molto precisi. 

Nei programmi pubblicati su Applican¬ 
do è indicato il tipo di Basic utilizzato; 
tuttavia per molte applicazioni possono 
essere usate tutte due le versioni. 

Una volta che avete deciso la versione 
da utilizzare, fate un doppio clic sull'icona 
scelta. Una volta caricato, l'MS BASIC 
presenta una finestra per il Listato (List), 
una finestra dei Comandi e una finestra di 
Output con la finestra del listato attiva. 

Potete copiare i listati di Applicando at¬ 
tivando la finestra di List e seguendo la te¬ 
cnica della scrittura testo con MacWrite. 


Ogni parola chiave che scrivete (per e- 
sempio PRINT, INPUT, ecc.) viene automa¬ 
ticamente riscritta in lettere maiuscole e in 
neretto. Lo scopo è quello di evidenziare 
la differenza tra le istruzioni del program¬ 
ma e i nomi assegnati alle variabili o alle 
subroutine. 

Quando raggiungete il lato destro, il vi¬ 
deo si sposterà orizzontalmente e continue¬ 
rà a visualizzare i caratteri che scriverete 
sulla stessa riga. Questo è necessario per¬ 
ché ogni linea di programma consiste in u- 
na sequenza di caratteri seguita da un "car- 
riage return". Non battete <Retum> fino a 
quando non avete introdotto tutta la linea. 

Occasionalmente, una linea del program¬ 
ma di Applicando potrà essere troppo lun¬ 
ga per essere pubblicata senza proseguire 
nella linea successiva; quando ciò sarà ne¬ 
cessario, una linea molto lunga sarà segui¬ 
ta da caratteri che inizieranno dal margine 
sinistro. 

Quando scrivete un programma, sarà 
un'ottima idea usare frequentemente l'op¬ 
zione SAVE nel menu FILE. Inoltre è sem¬ 
pre meglio salvare il programma prima di 
farlo girare. 

Terminata la scrittura del programma e 
salvata la versione definitiva, usate il me¬ 
nu RUN per farlo girare. Molti errori di 
scrittura vengono segnalati con un BEEP e 
un box di messaggio. 

Dopo aver fatto clic sulla parola OK nel 
box, viene evidenziato il listato e la linea 
contenente l'errore viene contornata da una 
finestra. 


Alcuni suggerimenti 

1 - Se date un doppio clic sulla barra del titolo della finestra di List, questa 
si espanderà alle dimensioni dello schermo del Mac. Per riportarla alle normali 
dimensioni date un doppio clic sempre nella barra del titolo. 

2 - Per stampare il listato selezionate la finestra dei comandi dal menu Win- 
dow e scrivete LLIST. Se fate precedere questo comando dall’istruzione LPRINT 
CHR$(27)"Q", l'Imagewriter stamperà il listato in modo compresso. 

3 - Se il vostro programma, per una qualsiasi causa, parte in modo errato, ed 
è necessario fermarlo, potete eseguire il comando di break premendo il tasto 
<COMANDO> e il punto (.) 

4 - Fate particolarmente attenzione alla scrittura delle linee contenenti la pa¬ 
rola chiave DATA. I dati in queste linee possono non causare un errore che 
blocchi il programma, ma possono seriamente compromettere la sua esecu¬ 
zione. 

5 - Non modificate un programma fino a quando non l'avete copiato intera¬ 
mente nella versione pubblicata e gira con successo. Fate una copia del pro¬ 
gramma e lavorate su di essa. La copia originaria può esservi d'aiuto se commet¬ 
tete degli errori durante le modifiche. 

6 - Se il programma non funziona regolarmente, può esservi d'aiuto togliere 
provvisoriamente le istruzioni ON ERROR GOTO. Questo vi permette di vedere 
i messaggi di errore soppressi dalla routine ON ERROR GOTO. 
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A proposito 
di polizze 

Dal giugno '84 possie¬ 
do un computer Apple 
Ile. In seguito ho stipula¬ 
to con la stessa conces¬ 
sionaria un contratto di 
manutenzione e assisten¬ 
za. Sono interessato alla 
polizza assicurativa che 
la RAS promuove con la 
rivista Applicando , ma 
desidero alcuni chiarimen¬ 
ti a riguardo. 

1. Il punto 4) Esclusio¬ 
ni recita : "La società 
non è obbligata per i dan¬ 
ni dovuti a corrosione, de¬ 
perimento, logoramento 
che siano conseguenza 
del normale uso o funzio¬ 
namento". Vorrei sapere 
secondo quali criteri vie¬ 
ne deciso in un senso o 
nell'altro. Faccio un sem¬ 
plice esempio: un compu¬ 
ter che ha due anni e 500 
ore di funzionamento è u- 
na cosa, un computer che 
ha sei anni e 3000 ore di 
funzionamento è un'altra. 
Nel secondo caso sembra 
evidente che l’eventuale 
guasto rientri nella casi¬ 
stica prevista dal punto 
4), altrimenti nel primo. 
Almeno ciò il buon sen¬ 
so mi induce a pensare. 

2. Quale prassi rassicu¬ 
rato deve seguire per chie¬ 
dere il risarcimento dei 
danni? Vorrei conoscere 
specificatamente tutti i 
casi in cui la RAS non ri¬ 
tiene di essere obbligata 
al risarcimento dei danni. 

3. Per la valutazione 
della somma assicurata 
vanno considerati i prezzi 
di listino della casa co¬ 
struttrice nel periodo del¬ 
l'acquisto del computer o 
in quello della stipulazio¬ 
ne della polizza assicura¬ 
tiva? 

4. La polizza assicurati¬ 
va si rinnova automatica- 
mente e quindi è necessa¬ 
ria una disdetta per la ri¬ 
soluzione della stessa op¬ 
pure scade ogni anno e 
quindi viene rinnovata in¬ 


viando una nuova carto¬ 
lina? 

Nel ringraziarvi per la 
vostra disponibilità col¬ 
go l'occasione per inviar¬ 
vi i migliori saluti. 

Nicola Di Bitetto 
Salerno 

Risponde direttamente 
la Riunione Adriatica di 
Sicurtà, alla quale abbia¬ 
mo girato la sua lettera: 

1. La Società con quel¬ 
la definizione intende e- 
scludere tutti i danni non 
derivanti da un fatto acci¬ 
dentale e fortuito e che 
sono evitabili con la nor¬ 
male cura che ogni utiliz¬ 
zatore dovrebbe avere per 
il buon funzionamento 
della macchina stessa, co¬ 
me ad esempio un norma¬ 
le contratto di manuten¬ 
zione. Questa polizza di 
assicurazione, infatti, na¬ 
sce anche per far fronte a 
quei casi in cui di norma 
non risponde il contratto 
di manutenzione stesso. 
Un esempio di ciò potreb¬ 
be essere: la rottura di u- 
nacinghiaditrascinamen- 
to di una stampante per 
il troppo uso che si fa 
dell'apparecchiaturanonè 
contemplato nelle garan¬ 
zie prestate; lo sarebbe in¬ 
vece, ad esempio, se il 
danno fosse occasionato 
da un evento accidentale 
come la caduta di un og¬ 
getto sulla stampante 
stessa;pertanto la garan¬ 
zia non si differenzia per 
il fatto che il computer 
abbia poche o moltissi¬ 
me ore di funziona¬ 
mento. 

2. La prassi che l'assi¬ 
curato deve seguire per ri¬ 
chiedere il risarcimento 
dei danni è molto sempli¬ 
ce. Deve inviare una lette¬ 
ra alla Compagnia speci¬ 
ficando dettagliatamente 
l'evento che ha provocato 
il danno e successivamen¬ 
te la documentazione del¬ 
le spese sostenute. Al ri¬ 
cevimento della denuncia 
la Compagnia, se non ri¬ 


terrà di essere obbligata 
al risarcimento in base al¬ 
l'evento denunciato, lo 
dovrànotific areali 1 assicu¬ 
rato facendo riferimento 
allecondizionicontrattua- 
li che non permettono il 
risarcimento del danno 
stesso. 

3. La valutazione della 
somma da assicurare deve 
essere riferita al valore di 
listino a nuovo o di rim¬ 
piazzo degli enti che si 
intendonoassicurare pife¬ 
riti al momento in cui si 
stipula la polizza assicu¬ 
rativa. 

4. La polizza non si 
rinnova automaticamen¬ 
te alla scadenza, ma deve 
esser eripropostadall'assi¬ 
curato anno per anno. 

Riteniamo di averle da¬ 
to i chiarimenti da lei ri¬ 
chiesti, ma nel caso non 
fossero sufficienti sare¬ 
mo lieti di poterle dare ul¬ 
teriori delucidazioni an¬ 
che a mezzo telefono. 
Con i migliori saluti. 

Troppo poco 
per gli ingegneri 

Ho mal volentieri rin¬ 
novato l'abbonamento al¬ 
la rivista in considerazio¬ 
ne del fatto che non è 
mai stato pubblicato o re¬ 
censito un solo program¬ 
ma per Apple II riguar¬ 
dante l'ingegneria struttu¬ 
rale o altri programmi 
professionali specifici 
per l'ingegneria in gene¬ 
re, tenendo conto che i 
migliori clienti Apple so¬ 
no proprio ingegneri e ar¬ 
chitetti. Distinti saluti. 

Giuliano Galiffa 
Roma 

Il suo vecchio abbona¬ 
mento scadeva in feb¬ 
braio; ora che l'ha rinno¬ 
vato, riceverà il numero 
di marzo, nel quale com¬ 
pare il primo articolo de¬ 
dicato al software per in¬ 
gegneri e architetti. E' u- 
na rassegna piuttosto am¬ 
pia e ben curata alla qua¬ 


le, inoltre, altre faranno 
seguito. 

Più attenzione 
per chi comincia 

Circa 8 mesi fa decisi 
di acquistare un computer 
Apple Ile e mi abbonai 
ad Applicando. Il primo 
programma che cercai di 
digitare fu Sei soluzioni 
(n.19 pag.144). Il pro¬ 
gramma gira, ma quando 
richiamo la condizione 
per avere la risposta (dal 
computer) alla giustezza 
delle risposte date da me 
al problema, il program¬ 
ma si blocca a riga 4310. 
Lì per lì avrei voluto scri¬ 
vervi subito per sapere il 
perché, poi pensai che 
l'inconveniente poteva es¬ 
sere corretto nel numero 
successivo o segnalato 
nelle rubriche Applihelp 
o Applilettere. 

Il 7/9/85 ricevo da voi 
i volumi Programmazio¬ 
ne umanizzata in Apple¬ 
soft (di S. Kamins - M. 
Waite) e Grafica e anima¬ 
zione con gli Apple II (di 
P. Cohen). Dopo la lettu¬ 
ra del primo batto il pro¬ 
gramma in esso contenu¬ 
to Agenda telefonica elet¬ 
tronica (pag.167). Nuova 
delusione: il programma 
non gira. Faccio il primo 
controllo accurato della 
trascrizione del program¬ 
ma fra il listato del libro 
e il mio listato ottenuto 
da stampante. Dopo aver 
corretto gli errori com¬ 
messi nella trascrizione, 
eseguo un secondo con¬ 
trollo. Tutto perfetto co¬ 
me da listato del libro. 
Ma il programma non gi¬ 
ra ancora. 

A questo punto cosa 
può fare un principiante 
come me di fronte a un 
simile problema. In po¬ 
chi giorni diventa per me 
una sfida con il "mo¬ 
stro", tanto seccante, 
quanto affascinante. Mo¬ 
rale, ho riscontrato varie 
imprecisioni: alla linea 
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L'angolo del reclamo 

Sono un utilizzatore, peraltro soddisfatto, di un 
Apple Macintosh a suo tempo acquistato ad Anco¬ 
na da un rivenditore che attualmente non tratta 
più il marchio Apple. Sono anche in procinto di 
acquistare, per la Associazione medica cui appar¬ 
tengo, un secondo apparecchio sul mercato dell'u¬ 
sato. 

Avendo intenzione di potenziare entrambe le 
macchine alla versione Plus in tempo utile per 
sfruttare l'offerta promozionale pubblicizzata dal¬ 
la Apple , ho telefonato al locale rivenditore (pur¬ 
troppo l'unico attualmente in zona): Sisteda. 

Quale il mio stupore quando mi sento risponde¬ 
re, in maniera sbrigativa e perentoria, che loro rice¬ 
vono molte richieste e che, non avendo io acqui¬ 
stato gli apparecchi da loro, comunque non verrò 
accontentato in nessun modo. 

Protesto quindi con i responsabili della politica 
commerciale italiana della Apple perché 

• al di là delle strategie commerciali che decido¬ 
no di attivare, almeno consiglino i propri rappre¬ 
sentanti locali a un trattamento migliore e più cor¬ 
diale della clientela (se non passata, di certo pro¬ 
babile futura); 

• offrano comunque a tutti i possessori di Macin¬ 
tosh di poter accedere all'offerta di potenziamen¬ 
to della macchina, magari attraverso un sistema 
di prenotazioni entro la data di scadenza, che dia 
diritto a usufruire comunque dell'offerta stessa. 

Chiedo anche di poter conoscere i nominativi di 
altri rivenditori dei prodotti Apple della provincia di 
Ancona, visto che il primo approccio con quello lo¬ 
cale è stato così poco gradevole. 

Lettera firmata - Ancona 

Nelle immediate adiacenze della sua città non 
c'è, purtroppo, un altro rivenditore. Eccole comun¬ 
que alcuni indirizzi a distanza abbordabile: 
Computer Line Snc, via Coletti 61, 47037 Rimini 
(FO), telefono 0541 54045. 

M.E.D., piazza Rosselli 6, 60044 Fabriano (AN), 
telefono 0732261734. 

Rinascita Informatica Sas, corso Trento e Trieste 
17, 63100 Ascoli Piceno, telefono 0736 50653. 
M.E.D., via Mozzi 72/a, 62100 Macerata, telefono 
0733 45588. 

M.E.D., via V. Venanzi 11/13, 62032 Camerino 
(MC), telefono 0737/3329. 

Centro Computer Srl, via Degli Abeti 136, 61100 
Pesaro, telefono 0721 25543. 


96 si trova un GOSUB 
62000 e la linea in que¬ 
stione non esiste; oppu¬ 
re un REM inserito nel¬ 
la linea 725 per cui il 
programma non esegue 
alcune funzioni; e altre 
ancora. 

E’ vero che nel risvol¬ 
to della prima pagina del 
libro c’è scritto: Ogni cu¬ 
ra è stata posta nella crea¬ 
zione, realizzazione, veri¬ 
fica e documentazione dei 
programmi. Tuttavia né 
gli autori né la McGraw- 
Hill Book Co possono 
assumersi alcuna respon¬ 
sabilità derivante dall’im- 
plementazione dei pro¬ 
grammi stessi...ma qui il 
discorso si farebbe trop¬ 
po lungo! 

Vedo ad esempio che 
in tutti i numeri della ri¬ 
vista dedicate 2 pagine a 
chi comincia, ed è un’otti¬ 
ma cosa. Bene! Andia¬ 
mo ora a pag. 84 di Ap¬ 
plicando n. 23 : One-li- 
ners. Io non mi sono an¬ 
cora cimentato con pro¬ 
grammi in linguaggio 
macchina e quindi comin¬ 
cio con i più semplici e 
corti. Batto il listato 70 
seguendo tutti i consigli 
dati nelle pagine Per chi 
comincia. 

CALL-151, batto 300 
invece di 0300 (ma non 
so il perché) batto "due 
punti" invece di ( ma 
non so il perché) non la¬ 
scio lo spazio fra i due 
punti e A9 ecc. 

Finito di battere la riga 
338 spingo (CTRL-C) 
RETURN. E a questo 
punto lo salvo? BSA- 
VE...? Va bene non lo 
salvo... ma dato che l’ho 
in memoria cerco di atti¬ 
varlo con CALL 768 e 
che cosa ottengo? un ru¬ 
more strano, che disatti¬ 
vo con CTRL/RESET e 
basta! 

Ora chiedo, forse un 
po’ polemicamente: inve¬ 
ce di pubblicare 6 One-li- 
ners non sarebbe meglio 
pubblicarne 3 ma in mo¬ 


do veramente completo, 
visto che le diaboliche 
macchine con cui abbia¬ 
mo a che fare non tollera¬ 
no nemmeno una virgola 
al posto di un punto e 
virgola? 

Capisco che allo stato 
attuale delle cose molti 
programmi e testi vengo¬ 
no tradotti ed è fin trop¬ 
po facile tradurre fischi 
per fiaschi perché il tra¬ 
duttore dovrebbe essere 
anche un programmatore, 
ma il punto della questio¬ 
ne è proprio questo: a 
mio modesto parere si af¬ 
fermeranno e andranno a- 
vanti solo quelle pubbli¬ 
cazione che garantiranno 
il massimo dell’affidabi¬ 
lità. 

Più in generale si ha 
l’impressione che nei va¬ 
ri articoli non esista in 
realtà la volontà che la 
gente impari veramente a 
programmare un compu¬ 
ter... è un po’ come in tut¬ 
ti i campi: chi veramente 
le cose le sa, tiene per sé 
quelle importanti. 

A questo proposito 
chiedo: esiste una pubbli¬ 
cazione (per Apple Ile) 
che spieghi con sufficien¬ 
te chiarezza, magari con 
esempi, l’uso dei PEEK 
e POKE non limitato a 
quei 5 o 6 che sparsi qua 
e là tra i vari manuali so¬ 
no riuscito a capire mol¬ 
to confusamente a che co¬ 
sa servono? 

G. Romponi 

Gambassi Terme (FI) 

Dal primo numero di 
Applicando uno dei no¬ 
stri scopi principali è sta¬ 
to quello di curare al mas¬ 
simo l'assenza di errori 
soprattutto nella stampa 
dei listati e dobbiamo di¬ 
re che ci siamo quasi 
sempre riusciti , perché 
come giustamente anche 
lei osserva, sbagliare è da 
tutti. L'importante è fare 
l'impossibile per evitarli, 
e nel caso che se ne com- 
mettaqualcuno accorger¬ 


sene quanto prima, rico¬ 
noscerlo e pubblicare im- 
mediatamentelacorrezio- 
ne. Tuttavia notiamo, tra 
le righe, che anche lei, 
come tutti i lettori, dopo 
aver copiato il listato di 
un programma e aver ri¬ 
scontrato il nonfunziona¬ 
mento, subito pensa a un 
errore commesso dalla ri¬ 
vista e non a un errore di 
copiatura, pur essendo 


alle prime armi in fatto 
di computer. 

E veniamo al primo 
programma da lei co¬ 
piato: funziona a dovere; 
non avrà per caso confu¬ 
so la lettera con il nume¬ 
ro 1 alle linee 4000- 
4560? Riguardo ai volu¬ 
mi della McGraw-Uill 
Book Co, ne abbiamo 
preso nota e abbiamo pas¬ 
sato copia della sua lette¬ 


li 















lettere 


Attenzione: nel listato n. 3 (NOTES) del program¬ 
ma Maestro, pubblicato a pagina 40 del numero 
24, nella locazione di memoria 61A7 va inserito il 
numero 24. 


ra alla stessa. Passando a- 
gli One-liners, dobbiamo 
scusarci con lei e con tut¬ 
ti i lettori per aver dimen¬ 
ticato Vultima linea della 
routine e i parametri per 
il salvataggio su dischet¬ 
to del One-Liner. La solu¬ 
zione al problema è stata 
pubblicata su Applicando 
n.26 a pag. 119. 

Tuttavia vogliamo fare 
una precisazione sulle 
sue disquisizioni su co¬ 
me si copia un program¬ 
ma in linguaggio macchi¬ 
na. Lei dice che batte 
e non la e non sa per¬ 
ché, e via dicendo per al¬ 
tri comandi. Si è mai do¬ 
mandato perché per far 
" girare " un programma 
deve battere "RUN" e 
non "GIRA"? E' l'archi¬ 
tettura dei computer, che 
accettano i comandi in 
un certo modo e non in 
un altro. Vorremmo farle 
presente, senza polemica, 
maper cercar ediaiutarla, 
che nelle pagine per chi 
comincia, quando si parla 
dei programmi in lin¬ 
guaggio macchinai spie¬ 
gato come si opera per 
salvare gli stessi su di¬ 
schetto e precisamente in 
fondoallacolonnacentra- 
le della seconda pagina 
dove sono indicati i para¬ 
metri di salvataggio del 
pogrammino dimostrati¬ 
vo; la lettera C scritta di 
seguito aL$èla lunghez¬ 
za del programma stesso 
ed equivale a 12, che non 
sono altro che i blocchi 
di due caratteri scritti nel 
programma. Purtroppo 
in questa rubrica, né tan¬ 
tomeno nella rivista, c'è 
spazio sufficiente per 
spiegare come funziona 
il linguaggio macchina 
(assembler). Vedremotut- 
tavia nei prossimi nume¬ 
ri, utilizzando la rubrica 


Applihelp, di chiarire 
maggiormente questi le¬ 
gittimi dubbi come pure 
l'utilizzo dei PEEK e PO- 
KE cercando di indicare 
tutti quelli utili allo sfrut¬ 
tamento delle risorse del¬ 
l'Apple. 

Come si stampa 
con Tre per te 

Da circa sei mesi ho 
acquistato Tre per te e do¬ 
po ripetuti e vani tentati¬ 
vi di ottenere la stampa u- 
tilizzando Apple Ile con 
Epson RX-80 F/T ho in¬ 
terpellato numerosi con¬ 
cessionari e rivenditori 
Apple ed Epson. 

Tutti hanno fatto riser¬ 
ve sul mio modo di pro¬ 
cedere ma nessuno è sta¬ 
to in grado di dirmi la ve¬ 
rità poi comunicatami, 
in via quasi confidenzia¬ 
le, da un tecnico riparato¬ 
re Epson: Appleworks 
con la mia configurazio¬ 
ne non gira! 

Recentemente un ami¬ 
co mi ha fornito Plus- 
Works-XM V2.0 della 
Norwick Data Services 
Ltd che, teoricamente, a- 
vrebbe dovuto risolvere i 
miei problemi. A parte 
che Plus-Works non rico¬ 
nosce la versione italiana 
di Appleworks, non ho 
ottenuto risultati neppure 
con la versione originale. 
Le mie richieste di stam¬ 
pa rimangono, disperata- 
mente, inascoltate. L'in¬ 
terfaccia non viene setta¬ 
ta e tutto torna, malinco¬ 
nicamente al video. 

Mi piacerebbe tanto u- 
sare Appleworks: devo 
cambiare stampante o a- 
vete una soluzione da pro¬ 
pormi? 

G. Serafi - Milano 

E' possibile che l'in¬ 


conveniente da lei lamen¬ 
tato dipenda dal tipo di in¬ 
terfaccia usata per colle¬ 
gare la sua Epson RX-80 
F/T; infatti non ha citato 
nella lettera se si tratta di 
un'interfaccia parallela o 
seriale, e nella seconda i- 
potesi se si tratta di una 
SuperSerial Card o un al¬ 
tro tipo ; sarebbe opportu¬ 
no che verificasse l'inter¬ 
faccia e ci desse qualche 
altro elemento di giudi¬ 
zio. Quanto poi alle rive¬ 
lazioni "in via confiden- 
ziale"deltecnicoriparato- 
re Epson, lei avrebbe fat¬ 
to meglio a rivolgersi a- 
gli uffici tecnici della Ap¬ 
ple di Milanofiori, che 
senz'altrol'avrebberoaiu- 
tata meglio. 

I problemi 
del principiante 

Sono un principiante 
alle prime armi e vorrei 
sottoporvi alcuni pro¬ 
blemi: 

1- Quando metto un 
floppy nel drive mi viene 
detto (al PR#6): FILE 
NOT FOUND, ma quale 
file non trova? Il floppy 
comunque è stato già ini- 
zializzato e formattato: 
l'Hello c'è. 

2- Che differenza c’è 
tra formattare e inizializ- 
zare? Quando si deve for¬ 
mattare un floppy? 

3- Quando si salva un 
One-Liner in Assembler 
bisogna dare valori ad A$ 
e L$, ma cosa stanno ad 
indicare queste variabili? 

4- Perché non fate 
qualche corso speciale 
per l'Assembler, che tan¬ 
to riesce difficile a me e 
credo, a tutti coloro che 
hanno l'hobby della pro¬ 
grammazione? 

Mimmo De Cesare - 
Salerno 

La ringraziamo per la 
sua cortese lettera, e ve¬ 
diamo di rispondere ai 
suoi numerosi quesiti: 

1 - Il file che non vie¬ 


ne trovato al boot del di¬ 
schetto è proprio il famo¬ 
so HELLO, per cui con¬ 
trolli che tale file esista 
veramente nel suo di¬ 
schetto, e sia stato me¬ 
morizzato con la dicitura 
esatta (le ricordiamo che 
il nome dev'essere battu¬ 
to interamente in Maiu¬ 
scolo). 

2 - Nessuna differenza: 
tutt'e due i termini indica¬ 
no la medesima fun¬ 
zione. 

3 - Quando si salva un 
programma in Assembler 
le variabili A$ ed L$ 
stanno a indicareinesade- 
cimale, rispettivamente, 
la locazione di memoria 
di partenza del program¬ 
ma e la sua lunghezza. 

4 - Per quanto concer¬ 
ne i corsi didattici ineren¬ 
ti all'Assembler per l'Ap¬ 
ple II, la proposta verrà 
presa in considerazione 
appena possibile. 

Fantasma, 
mouse e boxe 

Sono un fedele lettore 
della vostra rivista, pos¬ 
siedo di un Apple Ile e 
vorrei chiedervi alcune 
cose: 

1- Ho letto su un gior¬ 
nale inglese che in marzo- 
aprile sarebbe uscito in 
Inghilterra una versione 
per Commodore 64 e per 
Spectrum del gioco Gho- 
st'n Goblin e volevo sa¬ 
pere se sarà fatta una ver¬ 
sione anche per l'Apple 
Ile ed eventualmente 
quando arriverà in Italia. 

2- Inoltre desiderei sa¬ 
pere se si potrebbe modi¬ 
ficare, e come, il pro¬ 
gramma Mouse Write in 
modo che funzioni bene 
anche con il joystick. 

3- Sono in possesso di 
PFS Graph, PFS File e 
PFS Report e quando fac¬ 
cio girare il programma 
la scritta per scegliere l'o¬ 
pzione che desidero usare 
è illeggibile, mentre l'e¬ 
lenco delle opzioni è leg- 
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gibile; gradirei sapere co¬ 
me si può fare affinché 
questa scritta diventi leg¬ 
gibile. 

4- Vorrei anche sapere 
se esiste una versione per 
Apple Ile del gioco Frak 
Bruno's Boxing. 

Corrado Pasquali 
Reggio Emilia 

Esistono molte versio¬ 


ni dei più famosi games 
su quasi tutti i personal 
in commercio, tuttavia, 
essendo centinaia, non è 
possibile sapere quali e 
quanti sono quelli impor¬ 
tati e distribuiti in Italia: 
a questo scopo le consi¬ 
gliamo di rivolgersi al 
suo rivenditore di fiducia. 

Perquantoriguardal'u- 
so del MouseWrite credia¬ 


mo che non sia possibi¬ 
li usare questo program¬ 
ma con il Joystick , £ 
nemmeno modificare i co¬ 
mandi del mouse affinché 
venga riconosciuto il Jo¬ 
ystick. Infine i problemi 
lamentati nell uso dei va¬ 
ri PFS in suo possesso 
derivano dal fatto che lei 
è in possesso di versioni 
dei PFS relative all'Ap¬ 


ple Ile e non Ile, nelle 
quali al posto dei caratte¬ 
ri in inverse vengono vi¬ 
sualizzati i caratteri del 
mouse. Il problema può 
essere risolto acquistato 
la Mouse Inverse Rom 
venduta da Applicando, 
con la quale potrà elimi¬ 
nare l'inconveniente an¬ 
che per i programmi Ap- 
pleWriter, Visicalc,ecc. 


«««« Mercatino delle mele •**» 


• VENDO per computer Applell il programma inte¬ 
grato "Dossier" composto da foglio elettronico, ela¬ 
boratore di grafici e di testo. Occorrono 48K e due 
drive. L. 200.000 non trattabili. Pier Luigi Antoni¬ 
ni, Via Fasolo 23, Pavia. Tel. 0382/473865. 

• VENDO causa passaggio sistema superiore Apple 
He 128 Kb 80 colonne, 2 disk drive, Mouse, scheda 
Z 80, Monitor 12" fosfori ambra, stampante Centro¬ 
nics grafica, dotato di grande banca software, docu¬ 
mentazione e raccolta Applicando. Giampaolo Bru¬ 
ti, Via Menotti Garibaldi 19, Roma, 
tei.06/5570413. 

• VENDO causa passaggio sistema superiore pro¬ 
grammi per Apple II e a prezzi modici; tra il mate¬ 
riale ce Appleworks tre x te, sistema operativo 
DOS 3.3, e tanto altro software. Andrea Alinti, Via 
Adamello 23, Riozzo di Cerro al Lambro (MI), tei. 
02/9834597. 

• VENDO Palette Polaroid x Apple He nuova con 
accessori a L. 1.750.000. Omelia Biagnoli, Via Bru- 
gnoli 11, Bologna. Tel.051/520279. 

• VENDO Apple II c completo di monitor 12" Ap¬ 
ple, drive aggiuntivo, mouse, borsa originale, 2 a- 
limentatori, numerosi software; tutto come nuovo a 
L. 2.600.000 (valore olire 3.500.000) + stampante 
Imagewriter usata 6 ore a L. 1.000.000. Tutto insie¬ 
me L. 3.200.000. Passamonti. Tel. 02/2718768. 

• COMPRO computer d'occasione delle seguenti 
marche: Mac 512 K, IBM e compatibili Olivetti. So¬ 
no interessato a programmi. Italico Pitassi, Via G. 
Borromeo 4, Padova, tei. 049/26974 ore pasti. 

• VENDO software inedito per Apple II e compati¬ 
bili: "Dizionario di sogni" per giocare al lotto. Spe¬ 
dire disco + L.12.000 per spese. Roberto Palombo, 
Via Barilatti 5, Macerata (AN). 

• VENDO stampante Seriale a colori Apple Scribe. 
L. 350.000. VENDO scheda Integer Romcard Apple 
originale L. 50.000. All'acquirente regalo program¬ 
mi di giochi da scegliere in una collezione di oltre 
1.300. Acquisto scheda Super Serial Card Apple ori¬ 
ginale. Rodolfo Spinosa, Via Morandi 50, Segrate 
(MI). Tel.02/2131925 dalle 20 alle 21). 

• STUDENTE possessore di un Macintosh desidere¬ 
rebbe conoscere programmatori, o semplici interes¬ 
sati alla programmazione in linguaggio FORTH, in 
special modo in MacFORTH, per scambio di idee e 
conoscenze. Limberti Leonardo, Via Maragliano 69 - 

50144 Firenze. 

• CERCO/cambio per Apple He linguaggi program¬ 


mazione, software CP/M , utility, varie, solo se for¬ 
niti di valida documentazione. Francesco De Vito, 
Via Cintia, P.co S.Paolo is. 2, Napoli. 
Tel.081/7671634. 

• VENDO causa inutilizzo Apple He, due drive con 
controller, espansione 128K-I-80 colonne, tutto ori¬ 
ginale Apple, perfetto, uniproprietario, joystick, 
scheda Z-80 per CP/M con 64K propri, tanto so¬ 
ftware con manuali rilegati a prezzo di realizzo. 
Maurizio Ferrari, Via Pareto 12 - Albinea (RE). 
Tel.0522/59233. 

• VENDO programmi nuovissimi e bellissimi a so¬ 

le L. 15.000 per Apple Ile e Ile. Marcp Pasquali, 
Via Patrice Lumumba 9 - Reggio Emilia. 

Tel.0522/555037. 

• VENDO Apple He + drive + monitor III + scheda 
80CL + software di ogni genere: commerciale, fi¬ 
nanziario, statistico, matematico, gestione testi, vi- 
sicalc, visidex, appiè works a L. 1.500.000. Mar¬ 
co. Tel.0332/766O91. 

• VENDO per Apple II ProDos Technical Refcrencc 
Manual completo di disco ProDos Exerciser + racco¬ 
glitore. Il tutto a L. 30.000. Luca Fontana, Via Ga¬ 
ribaldi 205/a - Comaredo (MI). Tel.02/9362410. 

• VENDO Apple II Plus con language card 16Kb, 
modulatore UHF pai color, ventola di areazionc a 
L.700.000 trattabili con in omaggio software va¬ 
rio. Tutto in ottime condizioni, qualsiasi prova. 
Marco Blanc, Via P. Toselli 31 Bresso (MI). 
Tel.02/6101301 - 6103875. 

• VENDO causa passaggio sistema supcriore Apple 
Ile + monitor fosfori Apple + adattatore TV color + 
drive esterno ASM + Imagewriter 80 cl. + program¬ 
mi originali Appleworks, mouse, numeri Applican¬ 
do. L.3.000.000 + IVA. Enzo Innocenti, Viale Vero¬ 
na 87 - Trento. Tel.0461/925531. 

• CAUSA problemi connessi con il passaggio a si¬ 
stema superiore, sono costretta a cedere in perfetta 
buona fede e assicurando la massima serietà softwa¬ 
re originale per Apple II, con manuali (Copy II 
Plus 6.0 in ProDos, Locksmith 6.0, Jeeveo, Super- 
cale 3a, Friday, Fantavision, Sensiblc Spellar, Fan- 
tpack con Fantrix fino al 13, print shop Compa- 
niort, avventure ecc.). Cristina Vaitorta, Via Cre¬ 
spi, 44 - Novara. Tel.0321/457313 ore serali. 

• CERCO Apple Imagewriter e unità aggiuntiva Di¬ 
sk Ile per Apple De. Solo se in buono stato. Pier 
Luigi Antonini, Via Fasolo 23 - Pavia. 
TeL.0382/473865. 
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Come farsi 
le proprie paddle 

E’ possibile costruire le paddle da utilizzare con i 
giochi per il vostro computer, oppure recuperare o 
modificare quelle che già possedete per i videogame: 
vi diamo in figura 1 il disegno del connettore delle 
paddle sia per Apple Ile sia per Apple Ile. L’Apple Ile 
ha una possibilità in più: all’interno, vicino al con¬ 
nettore per le paddle, c’è uno zoccolo a 16 piedini u- 
guale agli zoccolini per gli integrati al quale potete 
collegare un massimo di quattro paddle oppure due jo¬ 
ystick (figura 2). Purtroppo è possibile utilizzare 
solo tre pulsanti. 

Per ogni paddle occorrono: 1 potenziometro lineare 
da 150 Kohm, 1 pulsante, 1 resistenza da 1000 ohm 
1/2 watt (visibili in figura 3), 1 connettore 
maschio Canon a 9 piedini e filo quanto basta. 

Per collaudare il funzionamento sono sufficienti 
queste poche righe di programma: 


PDLO = Paddle zero 
PDL1 * Paddle uno 
GND = Massa 

PBO = Pulsante Paddle zero 
PB1 * Pulsante Paddle uno 
+5 = Tensione 5 Volt 100 mA 

N.C. « Non collegato 


5 4 3 2 1 

0 0 0 0 0 

. PDLO N.C. GND +5 PB1 

9 8 7 6 

0 0 0 0 

N.C. PDL1 PBO N.C. 


Connettore 


Figura 1. Connettore paddle. 



1 =+5 Volt 

2 = Pulsante Paddle zero 

3 = Pulsante Paddle uno 

4 = Pulsante Paddle due 

6 = Paddle zero 

7 = Paddle due 

8 = GND (massa) 

10 = Paddle uno 

11 = Paddle tre 


10 HOME 

20 VTAB 6: PRINT ”PDL(0)”: VTAB 6: HTAB 10 
30 PRINT ”PDL(1)" 

40 VTAB 8: PRINT ” 

50 EF PEEK(-16287) >127 THEN INVERSE 
60 VTAB 8: PRINT PDL(O) 

70 NORMAL 

80 VTAB 8: HTAB 10: PRINT ” 

90 EF PEEK(-16286) > 127 THEN INVERSE 
100 VTAB 8: B 10: PRINT PDL(l) 

110 NORMAL 
120 GOTO 40 

Dato il RUN, sul video si vedranno dei numeri 
che cambieranno col variare di un potenziometro o 
delEaltro. Se premete un pulsante, il numero relativo 
a quella paddle verrà indicato in inverse. 

Questo programma permette di controllare solo le 
paddle 0 e 1 con i relativi interruttori. Per controllare 
le altre due paddle occorre aggiungere PDL(2) e 
PDL(3) mentre per il terzo interruttore bisogna scrive¬ 
re IF PEEK(-16285) >127 THEN INVERSE. 

Per lavorare 
in emulazione Diablo 

Nelle ROM della LaserWriter, oltre al firmware di 
sistema e all'interprete PostScript, sono contenute 
delle routine che consentono l’emulazione di un sot¬ 
toinsieme delle funzioni della stampante a margherita 
Diablo 630. In questo modo la LaserWriter può esse¬ 
re collegata a qualsiasi computer che sia in grado, di¬ 
rettamente o mediante un proprio software, di utilizza¬ 
re questo tipo di stampante. 

Per lavorare con la stampante in emulazione Dia¬ 
blo occorre settare lo switch di controllo del modo di 
stampa, situato sul lato posteriore della LaserWriter, 
nella posizione SPECIAL; è possibile utilizzare, per 

11 collegamento, sia l'interfaccia seriale asincrona 
RS-232, con connettore Canon DB 25 femmina, sia 
la seriale asincrona RS 422 (DB 9 femmina), con i 
seguenti parametri di comunicazione: 


Figura 2. Connettore I/O giochi. 


Potenziometro 
(pin 2) +5 

GND (pin 3) 

PBO A 
o PB1 *“ 


150 Kohm 


Pulsante 
1 . 


-► PDLO 
O POLI 


5 (pin 2) 


1000 ohm 


Figura 3. Potenziometro, pulsante e resistenza. 


- 9600 Baud 

- Protocollo XON/XOFF 

- Nessuna parità 

- Senza LineFeed dopo Carriage Return 

Il cavo da utilizzare è un cavo seriale standard RS 
232 o RS 422. 

In emulazione Diablo, la LaserWriter stampa una 
pagina sotto due condizioni: 

- quando riceve un segnale di Form Feed 

- quando arriva a fine foglio. 

Quindi se l'ultimo foglio di stampa non contiene 
un segnale di Form Feed o non è pieno, la LaserWri¬ 
ter lo stamperà se è stata lanciata una successiva 
stampa oppure dopo aver atteso circa 30 secondi. 
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Comandi e codici LaserWriter in emulazione Diablo 

Caratteri per pollice 
CPI Codici 

4 Escape (27), Control-Sottolineato (31) e Control Sottolineato (31) 

5 Escape (27), Control-Sottolineato (31) e Control-Y (25) 

6 Escape (27), Control-Sottolineato (31) e Control-U (21) 

8 Escape (27), Control-Sottolineato (31 ) e Control-P (16) 

10 Escape (27), Control-Sottolineato (31) e Control-M (13) 

12 Escape (27), Control-Sottolineato (31 ) e Control-K (11) 

15 Control-I (9), Control-A (1), Escape (27), Control-Sottolineato (31), 
Control-I (9), Control-A (1) e Control-I (9) 

20 Escape (27), Control-Sottolineato (31) e Control-G (7) 

Linee per pollice 

LPI Codici 

6 Control-I (9), Control-A (1), Escape (27), Control- A (30), Control-I (9), 
Control-A (1) e Control-I (9) 

8 Escape (27), Control- A (30) e Control-G (7) 


Altri comandi 



Inizio 

Fine 



Grassetto 

Escape (27) O (79) 

Escape(27) 

& 

(38) 

Sottolineato 

Escape (27) E (69) 

Escape(27) 

R 

(82) 

Pedice 

Escape (27) U (85) 

Escape(27) 

D 

(68) 

Apice 

Escape (27) D (68) 

Escape(27) 

U 

(85) 


Figura 4. 


Durante la stampa la LaserWriter si comporta esat¬ 
tamente come una stampante a margherita, e utilizza 
sempre il carattere Courier 12. 

Riportiamo in figura 4 i comandi e i codici di 
controllo disponibili; il numero tra parentesi corri¬ 
sponde al valore ASCII del carattere di controllo. 

Questi comandi vanno inviati senza particolari pro¬ 
cedure. Naturalmente, essendo un'emulazione di una 
margherita, variando i caratteri per pollice non si ot¬ 
terranno riduzioni o ingrandimenti di questi, ma si 
compatteranno o allontaneranno i caratteri, sempre in 
Courier 12. 

E' possibile il collegamento della LaserWriter in e- 
mulazione Diablo 630 con Apple Ile e Ile utilizzando 
il cavo di collegamento con rimageWriter (inserito 
nel connettore DB 25 della Laser), e mantenendo vali¬ 
de le configurazioni della Super Serial Card e della 
porta stampante del Ile per rimageWriter. 

Con il programma AppleWorks è possibile sfrutta¬ 


re tutti i comandi della periferica inserendoli nei "Co¬ 
dici Stampante" di una stampante Alternativa. Ecco 
la procedura da seguire: 

- Entrare nel Menu "Specifica le informazioni sul 
la(e) stampante(i)" di "Altre Attività" 

- Scegliere la voce "Aggiungi Stampante" 

- Settare la seguente configurazione: 

- Avanzamento carta NO 

- Accetta comando di salto pagina SI 

- Stop a ogni fine pagina NO 

- Larghezza Carta 8.0 Pollici 

- Codice di Intcfaccia Controll-I 255N 

- Codici Stampante 

In "Codici Stampante" vanno inseriti, nelle rispetti¬ 
ve voci, tutti i caratteri di controllo riportati sopra, 
così da sfruttare tutte le opzioni che la LaserWriter 
mette a disposizione in emulazione Diablo 630. 
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Di qua e di là con Switcher 

Il programma Switcher è senz'altro una delle appli¬ 
cazioni più interessanti create per il Macintosh: con¬ 
sente di partizionare la memoria RAM in diverse por¬ 
zioni separate, ciascuna delle quali è in grado di carica¬ 
re un applicativo diverso, e di renderle effettivamente 
disponibili all'uso quasi istantaneamente. 

Sulla barra dei menù in alto a sinistra compare una 
doppia freccia: facendo click su una delle due punte si 
passa da un programma all'altro, senza dover chiudere 
il documento che si sta componendo, e quindi senza 
dover rendere il controllo della macchina al Finder per 
poter aprire un'altra applicazione. 

Switcher è predisposto per lavorare con Macintosh 
da 512K in su (oltre all'ormai noto Plus da 1 Mega 
RAM esistono espansioni da 1,5 Mb, 2Mb e 4Mb), 
e la nuova versione 4.6 può lavorare con la versione 
HFS (Hierarchical File System) del System 3.1 di 
Mac, quindi anche con l'hard-disk HD20 Apple, oltre 
che con gli altri dischi rigidi presenti sul mercato. E’ 
però consigliabile che sia Switcher sia gli applicativi 
da usare si trovino nella stessa cartella. 

Quando si crea un nuovo documento Switcher, dal 
menù Switcher bisogna selezionare l'opzione Installa 
oppure Configura e installa. La prima carica un appli¬ 
cativo in una porzione di memoria standard da 128 
Kb, la seconda permette di dimensionare la memoria 
su cui si vuole caricare il programma diversamente 
dai 128Kb. In generale, diminuendo la quantità di 
RAM a disposizione di un programma calano le pre¬ 
stazioni e si hanno frequenti accessi al disco, con sen¬ 
sibili rallentamenti. In questo caso il risparmio di me¬ 
moria non compensa gli svantaggi che ne derivano. 

Tuttavia un Mac 512 non viene esattamente diviso 
in 4 partizioni da 512Kb: al massimo si possono cari¬ 
care 3 applicazioni diverse contemporaneamente (tran¬ 
ne Jazz ed Excel, che richiedono almeno 364Kb di 
memoria a disposizione) poiché 128Kb vanno riserva¬ 
ti alla gestione del sistema (driver di stampa, Archi¬ 
vio Appunti, Clipboard); per la stessa ragione con un 
Plus le applicazioni caricabili diventano 7. Un modo 
ottimale per risparmiare memoria è quello di sceglie¬ 
re, attraverso la voce Configura e installa, che non 
venga salvata la pagina dello schermo di un'applica¬ 
zione passando a un'altra applicazione: si risparmiano 
così 22Kb, con l’inconveniente, però, che il passag¬ 
gio a un altro programma risulterà leggermente più 
lungo poiché dovrà essere ricreata la videata. 

A questo punto si possono configurare e parame- 
trizzare alcune caratteristiche base, attivando queste 
scelte dalla voce Opzioni: 

• SWITCHER NELLA ROTAZIONE;quando si 
fa click sulla freccia a due punte una delle applicazio¬ 
ni a cui si passa è Switcher stesso. 

• TRASFERISCI SEMPRE GLI APPUNTI; quan¬ 
do si usa Switcher, ogni applicativo mantiene i pro¬ 
pri appunti separati, in modo da poter eseguire le fun¬ 
zioni Taglia, Copia e Incolla in maniera normale al 
suo stesso interno. Tuttavia quando si vogliono tra¬ 
sferire informazioni ad altre applicazioni è opportuno 
che quest'opzione sia selezionala. 

• RUOTA CON ANIMAZIONE; quando questa op¬ 


zione è attivata, le applicazioni si vedono scorrere 
sul video nel passaggio da una all'altra; al contrario 
se essa non è selezionata il passaggio è istantaneo. 

• RITORNA DOPO IL LANCIO; riporta allo 
schermo di Switcher dopo aver installato una nuova 
applicazione o aver avviato un programma inattivo. 

• LA STESSA APPLICAZIONE DUE VOLTE; 
questa opzione presenta qualche rischio, perché alcu¬ 
ne applicazioni (compresi MacWrite e MacPaint) crea¬ 
no particolari archivi temporanei o non sanno trattare 
eventi software che li riguardano e che accadono a lo¬ 
ro insaputa. Perciò potrebbe non essere sicuro lancia¬ 
re copie multiple della stessa applicazione. Nessun 
problema se una delle due si trova su un disco di¬ 
verso. 

• INVERTI LA DIREZIONE DI ROTAZIONE; è 
un'opzione puramente estetica che permette di decide¬ 
re da che parte ruota la scelta dei programmi caricati. 

• DISABILITA I COMANDI DA TASTIERA. 

Una volta ottenuta la configurazione più adatta, è 

possibile memorizzarla su disco: essa viene salvata 
sotto forma di documento Switcher, insieme allo sta¬ 
to corrente del programma (cioè alle varie opzioni 
che sono state selezionate). In tal modo non è neces¬ 
sario ripetere le operazioni di caricamento o di confi¬ 
gurazione di Switcher ogni volta che si vuole utiliz¬ 
zarlo, ma è sufficiente, da Finder, attivare e aprire l’i¬ 
cona del documento relativo alla configurazione desi¬ 
derata, che sarà eseguita automaticamente. 

Per un corretto e miglior uso di Switcher con i pro¬ 
grammi disponibili per Macintosh, ecco una serie di 
consigli pratici per ogni programma: 

• FINDER. E' possibile caricare il Finder a patto 
che sia il primo applicativo caricato, e che la memo¬ 
ria minima a sua disposizione sia di 128Kb. 

• FONT/DESK ACCESSORY MOVER. Memo¬ 
ria Minima e Suggerita: 128Kb; è consigliabile non 
utilizzare il programma mentre vi sono altre applica¬ 
zioni attive in Switcher, poiché questo programma 
modifica il file System e ciò potrebbe causare proble¬ 
mi agli programmi presenti. 

• MACWRITE. Memoria Minima: 128K. Memo¬ 
ria Suggerita: 128K. Se si usa la Laser è meglio por¬ 
tare questi valori a 144K. Nessuna limitazione. 

• MACPAINT. Memoria Minima: 128K. Memo¬ 
ria Suggerita: 179K. Nessuna limitazione. 

• MACDRAW. Memoria Minima: 128K. Memo¬ 
ria Suggerita: dal28K in su. Non si dovrebbe mai su¬ 
perare l'80% della memoria se si vogliono usare la 
funzioni di copia e incolla (controllate l’tuilizzo effet¬ 
tivo di memoria sotto il menù mela di MacDraw). 

• MACPROJECT. Memoria Minima: 128K. Me¬ 
moria Suggerita: dal28K in su. Nessuna limitazione. 

• MICROSOFT EXCEL. Memoria Minima: 
364K. Memoria Suggeritaci2K. Necessario il Plus. 

• ALTRI PROGRAMMI MICROSOFT. Memoria 
Minima: 128K. Memoria Suggerita: 128K. Se si e- 
sce da Switcher quando una di queste applicazioni è 
l'unica installata, rimane nel suo menù mela la voce 
Switcher, che tuttavia non è utilizzabile. 

Il costo del programma Switcher, disponibile pres¬ 
so tutti i concessionari Apple, è di É.44.000+IVA. 

Alfonso Scoppetta 
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Listati senza fatica 


Tutti i programmi di Applicando possono essere trascritti e quindi salvati su 
dischetto. Ma la trascrizione è lenta e noiosa, e sbagliare fin troppo facile. Ecco 
perché Applicando offre, già pronti, i dischetti con i programmi autoguidati 
(cioè con le istruzioni), sia per Apple II, sia per Macintosh: per ottenerli, è 
sufficiente inviarci il tagliando (pubblicato nell'ultima pagina) debitamente 
compilato. Chi vuole risparmiare non perda la favolosa offerta dell' 
abbonamento al Disk Service e invii subito il tagliando di pagina 129. 


APPLICANDO 1 

AP 1/102 Profitti. In tempo reale l'anali¬ 
si del break-even point, punto di pareg¬ 
gio di un’azienda. Calendario perpe¬ 
tuo. Dal 1582 in poi tutto quello che si 
può sapere sui giorni passati e futuri. I 
tronchi dei tesoro. Una spericolata 
caccia al tesoro a nuoto, tra le insidie 
di tronchi galleggianti. Lire 30.000. 

AP1/N03 Eliminatore di Dos. Uno 

strumento per aumentare del 10% la ca¬ 
pacità di un normale floppy disk. Orolo¬ 
gio. Per trasformare l'Apple II in un oro¬ 
logio con rintocchi, allarme e lancetta 
dei secondi. Pronti puntare fuoco! 
Guardiano di un castello abbandonato, 
hai 25 colpi da sparare contro gli intru¬ 
si. Lire 30.000. 


APPLICANDO 2 

AP2/IN04 Costi chilometrici auto. 

Un programma per calcolare e confron¬ 
tare i costi di qualunque auto. Richia- 
mafigure. Posizionare, ingrandire, 
ruotare, cambiare colore, aggiungere fi¬ 
gure a quelle di una tavola. Laser nel¬ 
lo spazio. Battaglia a colpi di laser 
contro asteroidi e alieni per difendere la 
torretta spaziale. Lire 30.000. 


APPLICANDO 3 

AP3/IN05 Sistema base. Un data ba¬ 
se modulare con tutte le caratteristiche 
essenziali per mettere ordine nei propri 
archivi. Etichette. Etichette spirito¬ 
se e bizzarre, di lavoro o di ogni gene¬ 
re, stampate facilmente e nel numero 
desiderato. Contratti. Con il WPL, il 
linguaggio di programmazione dell'Ap¬ 
ple Writer, bastano cinque minuti per 
un documento di più pagine personaliz¬ 
zato. Gran catalogo. Una routine 
per avere il catalogo del dischetto su 
due colonne, 42 file per volta, e ri¬ 


chiamarli con un solo tasto. Lire 
30.000. 

AP3/A06 Equo canone (occorre Visi- 
cale). In Visicalc un modello che per¬ 
mette, a inquilini e proprietari, l'esatto 
calcolo dell'equo canone. Lire 25.000. 


APPLICANDO 4 

AP4/N07 Lettura sprint (versione ita¬ 
liana e versione con frasi in inglese). 
Un reading improver per leggere di più a 
parità di tempo. Rompiquindici. Il pic¬ 
colo rompicapo delle quindici pedine da 
ordinare nei sedici spazi a disposizio¬ 
ne. Tastierino fantasma. Una routi¬ 
ne per avere a disposizione un tastieri¬ 
no numerico anche sull'Apple II. Routi¬ 
ne di input. Due subroutine, una per 
i dati numerici, l'altra per gli alfanumeri¬ 
ci, per il controllo dell'input. Lire 
30.000. 

AP4/A09 Organo, violino, piano¬ 
forte (dischetto Pascal, occorre lan- 
guage card o Apple Ile o Ile). Ecco co¬ 
me, col Pascal, si riesce a simulare i 
tre strumenti attivando l'altoparlante 
dell'Apple da programma. Lire 30.000 


APPLICANDO 5 

AP5/N08 Investor. In tempo reale il 
quadro esatto di come vanno i propri in¬ 
vestimenti finanziari. Con cinque pro¬ 
spetti riepilogativi e 52 periodi di quota¬ 
zione, Investor è uno dei programmi più 
completi in questo settore e in assoluto 
il più economico. Lire 70.000. 

AP5/N09 Agenda personale. Per ri¬ 
cordare ora per ora gli appuntamenti di 
un anno intero memorizzahdo fino a 15 
appunti ogni giorno. Duello d'arti¬ 
glieria. Vince cni sa calcolare meglio 
la velocità del vento, la gittate e l’eleva¬ 
zione della canna. Mele e freccet¬ 


te. Versione computerizzata del popo¬ 
lare gioco delle freccette che nulla to¬ 
glie al gusto del far centro. Lire 30.000. 


APPLICANDO 6 

AP6/N10 Obbligazioni/Bond Ma¬ 
nager. Per avere un quadro completo 
e concreto dei rendimenti dei titoli a red¬ 
dito fisso. PucMan/Nibbler. Versio¬ 
ne in alta risoluzione per Apple del fa¬ 
moso videogame a gettone. Line fin- 
der. Letteralmente trova righe; questa 
utility permette di localizzare facilmen¬ 
te i segmenti di un programma. Lire 
30.000. 

AP6/N11 Stress. In Pascal (occorre 
language card o Apple Ile o Ile). Per 
giocare, ma soprattutto per inventare 
giochi, il programma si pone in alternati¬ 
va agli usuali videogame. Lire 55.000. 

APPLICANDO 7 

AP7/N12 Apple pittore. Si possono 
realizzare sullo schermo capolavori di 
pittura, ottenendo effetti speciali di 
grande efficacia. Ottovolante. Un tu- 
torial per insegnare ai bambini a ricono¬ 
scere i numeri che rimbalzano sullo 
schermo. Diskblock. Una routine che 
permette di evitare che qualche curio¬ 
so possa avere libero accesso in pro¬ 
grammi riservati. Archivio per Ap¬ 
ple. Per avere un back-up dei program¬ 
mi più importanti da dischetto a casset¬ 
ta o viceversa. Discoteca. Una ban¬ 
ca dati che tiene sotto controllo la colle¬ 
zione di LPe cassette. Aiuto. Alla fine 
della battitura di un programma, Aiuto 
vi dirà quanti errori ci sono e a quali li¬ 
nee. Lire 30.000. 

APPLICANDO 8 

AP8/N13 Cambiacomandi/Messag- 
gi. Un programma che insegna come 
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personalizzare i messaggi propri del 
Dos dell'Apple. Le Mans. Un gran pre¬ 
mio di formula uno da giocare in due o 
da soli contro il computer. Appleorga- 
no. Ecco come trasformare Apple// in 
un melodioso organo. Lire 30.000. 

AP8/T14 Momento di una for- 
za/Colpo all’asta. La dimostrazio¬ 
ne didattica del ribaltamento di un cor¬ 
po solido appoggiato a un piano quan¬ 
do viene applicata una forza orizzonta¬ 
le che supera il momento in senso oppo¬ 
sto dovuto al peso. Hard copy pagi¬ 
ne in alta risoluzione. Se la stam¬ 
pante è compatibile con questo pro¬ 
gramma si possono far miracoli. Lire 
30.000. 


APPLICANDO 9 

AP9/N15 Fuoco fatuo. Un appassio¬ 
nante adventure game con un percorso 
intricatissimo, mille trabocchetti, un 
troll e una principessa. Apple arti¬ 
sta. Per destreggiarsi nella grafica ad 
alta risoluzione usando lo schermo co¬ 
me tavolozza e la tastiera come pennel¬ 
lo. Data hello. Una semplice routine 
che permette di disporre di una clock 
card inizializzando i dischetti con gior¬ 
no, mese e anno. Lire 25.000. 

AP9/T16 Sistema di forze paralle¬ 
le. Fissandone l'intensità e la posizio¬ 
ne, questo programma permette di vi¬ 
sualizzare il centro di un sistema di for¬ 
ze sotto forma numerica e grafica. Tra¬ 
slazione e rotazione di una figu¬ 
ra piana. Come far ruotare, traslare, 
rimpicciolire, ingrandire sul video una fi¬ 
gura piana. Lire 30.000. 


APPLICANDO 10 

API 0/N 14 Ripristino. Come ripristi¬ 
nare programmi persi per un'accidenta¬ 
le istruzione di New o di Fp. Disk 
Map. Un detective del Dos per scopri¬ 
re dove e come vengono immagazzina¬ 
ti i dati analizzando la mappa dei bit oc¬ 
cupati. Autonumber. Una routine per 
autonumerare automaticamente i pro¬ 
grammi. Lire 30.000. 

AP10/T17 Rette nel piano carte¬ 
siano. Come individuare in cinque mo¬ 
di diversi una coppia di rette in un piano 
cartesiano e avere visualizzate le e- 
quazioni relative ai piani assegnati. 
Statistica. Come analizzare la corre¬ 
lazione tra due fenomeni mediante 
l'indice di Bravais. Lire 30.000. 


APPLICANDO 11 

API 1/N18 Apple edicola. Una ban¬ 
ca dati per avere sotto controllo un arti¬ 
colo, il suo numero di pagina, la rivista 
su cui è stato pubblicato. Disk Zap. Il 
programma indispensabile per il debug¬ 
ging. Messaggi personali. Quando 
la persona non c'è basta lasciarle un 
messaggio in Apple//. Comparatore 
di programmi. Per risolvere dubbi sul¬ 


le diverse versioni dello stesso pro¬ 
gramma in basic. Trappola per po¬ 
chi. Un cacciatore contro tre animali fe¬ 
roci. Vince chi riesce a intrappolare 
senza essere intrappolato. Lire 
30.000. 

AP11/T19 Espressioni. Come risol¬ 
vere un piccolo dramma familiare con 
l'aiuto di un elaboratore personale. Lire 
25.000. 

Bridge AP12/N20 

Per imparare a giocare 
a bridge o per esercitarsi 
giocando contro il computer 


APPLICANDO 12-13 

AP12/N20 Bridge. Un programma in 
altissima risoluzione grafica che per¬ 
mette di imparare il bridge o di giocarlo 
contro il computer. Microcalc. Un fo¬ 
glio elettronico di calcolo che mette a di¬ 
sposizione 20 righe per 20 colonne, per 
un totale di 400 caselle da riempire co¬ 
me si vuole. Applesoft Line Edi¬ 
tor. Una potente utility che permette 
l'editing dei programmi in Applesoft e 
aggiunge all'Apple un più ampio control¬ 
lo del cursore. Lire 30.000. 

AP12/A21 Budget (occorre Applewor- 
ks). Un prospetto che con l'inserimento 
di dati mensili e di medie preventive cal¬ 
cola automaticamente le medie consul¬ 
tive e i relativi saldi mensili e annui. Lire 
20 . 000 . 

AP12/A22 Budget (occorre Visicalc). 
Un prospetto che con l'inserimento di 
dati mensili e di medie preventive calco¬ 
la automaticamente le medie consunti¬ 
ve e i relativi saldi mensili e annui. Lire 
20 . 000 . 

AP12/T25 Animazione di una rota¬ 
zione tridimensionale. Un esem¬ 
pio di come una rotazione tridimensio¬ 
nale permette di rappresentare gli og¬ 
getti proprio come li vediamo. Trasfor¬ 
mazione da File a Data. Una utility 
per risolvere il problema di aggiungere 
a un programma preesistente delle i- 
struzioni DATA ricavate da un altro file. 
Lire 25.000. 


APPLICANDO 14 

AP14/N26 Golf. Un programma in altis¬ 
sima risoluzione grafica che permette 
di disegnare il proprio percorso di golf 
per poi giocarci a piacimento. Auto¬ 
più. Per non dimenticare più gli appun¬ 
tamenti fissi dedicati alla manutenzio¬ 
ne della vostra automobile. Lire 
20 . 000 . 

API 4/N27 Applebaby. Tre giochi di¬ 
dattici: imparare a contare in età pre¬ 
scolastica, ripassare le tabelline, eser¬ 
citarsi nell'ortografia. Lire 25.000. 


AP14/A28 Rimborso spese (occorre 
Appleworks). Un prospetto che permet¬ 
te di preparare le vostre note spese au¬ 
tomaticamente. Lire 20.000. 

AP14/A29 Rimborso spese (occorre 
Visicalc). Un prospetto che permette di 
preparare le vostre note spese automa¬ 
ticamente. Lire 20.000. 

AP14/T30 Frutteti. Un aiuto a risolve¬ 
re uno dei più classici problemi di esti¬ 
mo. Instant Poster. Scrivete la fra¬ 
se che volete, e subito dalla stampante 
esce un poster gigante. Lire 20.000. 


APPLICANDO 15 

AP15/N31 Sintetizzatore di suo¬ 
ni. Dotate i vostri lavori di una colonna 
sonora eccezionale: dal canto dell'uc¬ 
cellino alla mitragliatrice, dal treno in 
corsa all'aereo. Volano. Un gioco in al¬ 
ta risoluzione per due sfidanti. Illu¬ 
stratore. Un programma di grafica 
che offre la possibilità di realizzare otti¬ 
mi disegni anche a chi non è molto 
dotato. Autoschermo. Crea in auto¬ 
matico menù altamente professionali 
(come quelli di Appleworks) da inserire 
nei vostri programmi. Lire 30.000. 


Computer cuisine 
AP15/A32 

Un ricettario computerizzato 
sul quale memorizzare 
ricette a centinaia 


AP15/A32 Computer cuisine. Un ri¬ 
cettario computerizzato sul quale me¬ 
morizzare ingredienti e ricette a centi¬ 
naia. Con possibilità di stampa delle sin¬ 
gole ricette e con un menù completo 
dei migliori piatti creati da Gualtiero Mar¬ 
chesi, il più famoso cuoco d'Italia. Oc¬ 
corre scheda 80 colonne. Lire 20.000. 

AP15/T33 Euclide. Il massimo comu¬ 
ne divisore e il minimo comune multiplo 
in un programma che ne permette l'im¬ 
mediata comprensione. Isomeri. Fa 
parte del più ampio progetto americano 
Seraphim, per lo studio della chimica. 
Lire 20.000. 


APPLICANDO 16 

AP16/N34 Dieta personalizzata. 

Un pratico sistema di data base nutri¬ 
zionale, con il quale è possibile perso¬ 
nalizzare, a seconda della propria costi¬ 
tuzione fisica e delle abitudini alimenta¬ 
ri, una dieta bilanciata, a lungo o a bre¬ 
ve termine. Il dischetto contiene un file 
dati di 400 cibi, la cui composizione è a- 
nalizzata in calorie, proteine, grassi, vi¬ 
tamine e colesterolo. Lire 30.000. 

AP16/N35 Designer. Il concetto dei 
potenti e costosi programmi di 
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CAD/CAM alla portata dell'Apple//, per 
fare del computer uno strumento semi¬ 
professionale per disegnare. Il gioco 
del pompieri. E' scoppiato un incen¬ 
dio, e voi siete un pompiere che deve 
salvare il maggior numero di persone 
prima che muoiano soffocate tra le fiam¬ 
me. Per listare bene in vista. Se 
nel programmare avete preferito la com¬ 
pattezza alla chiarezza, avete bisogno 
di questo programma. Timer. Un fede¬ 
le e preciso contasecondi che avverte 
del passare del tempo, e al momento 
giusto... Lire 30.000. 


Dieta AP16/N34 

Un pratico sistema di 
data base nutrizionale 
con il quale avrete la 
possibilità di personalizzare 
una dieta bilanciata 


AP16/N36 Cento One-liner. Utili¬ 
ties, routines, dimostrativi di grafica e 
di suoni, e perfino giochi. Cento pro¬ 
grammi su un solo dischetto, tutti rigo¬ 
rosamente scritti in una sola linea di Ba¬ 
sic. Da usare così come sono, da stu¬ 
diare come esempi di sintesi, o da tra¬ 
sferire nei vostri programmi. Lire 
30.000. 

AP16/N37 Rubrica telefonica (oc¬ 
corre Appleworks). Un'agenda telefoni¬ 
ca che individua in tempo reale qualun¬ 
que numero memorizzato, che stampa 
le etichette per spedire ali auguri, e 
stampa elenchi su carta da distribuire 
aggiornati ogni mese ai collaboratori. Li¬ 
re 15.000. 


APPLICANDO 17 

AP17/N38 Strade d'America. Pianifi¬ 
ca un qualunque itinerario stradale ame¬ 
ricano tra ben 171 città diverse, fornen¬ 
do le sigle delle strade da percorrere, 
l'elenco delle città intermedie e i calcoli 
della distanza in miglia dei tratti interme¬ 
di e totali. Uragano. Su una piccola cit¬ 
tà indifesa una tempesta si abbatte im¬ 
placabile: distruggerà tutto. A meno 
che... Gioco ad altissima risoluzione 
grafica. Lire 30.000. 

AP17/N39 Regress. Ideale per mani¬ 
polare dati con funzioni statistiche, 
con la possibilità di chiedere previsioni 
in base all'andamento della regressio¬ 
ne sui dati inseriti. Calcolatrice 
RPN. Con questo programma l'Apple 
diventa una sofisticata calcolatnce 
che impiega per l'input la notazione po¬ 
lacca inversa, con una catasta operati¬ 
va di quattro registri. Sparate a vi¬ 
sta. Siete appostati contro un muro e 
comandate un potente cannone. Dal 
cielo fluttuano oggetti che dovete 
colpire. Ma un avversario con un altro 
cannone... Lire 30.000. 


AP17/A40 I conti del negozio (oc¬ 
corre Appleworks). Questo modello di 
spreadsheet è utilissimo per seguire 
l'andamento giornaliero e mensile di un 
negozio. Per ogni movimento di cassa 
è possibile memorizzare causale e tipo 
di pagamento. Il computer calcola ito ta¬ 
li per ogni voce e indica qual è stato il 
movimento di cassa della giornata, te¬ 
nendo conto degli ordini e dei saldi per 
impegni precedenti, elabora i dati suddi¬ 
visi per categoria merceologiche e cal¬ 
cola le percentuali di ripartizione degli u- 
tili su ogni articolo. Lire 50.000. 

AP17/A41 I conti del negozio (oc¬ 
corre Visicalc). Come AP17/A40, ma 
con Visicalc. Lire 50.000. 


APPLICANDO 18 

AP18/N41 Trivia. Una versione per Ap¬ 
ple II, del gioco Trivial Pursuit, però per¬ 
sonalizzabile e quindi utile anche per 
studiare o ripassare. Bioritmi. Con 
uesto programma si può seguire Pan- 
amento dei propri bioritmi: tutti e tre i 
cicli, mese per mese. Occhio ai con¬ 
sumi. Invece di annotare diligentemen¬ 
te la percorrenza in chilometri e i litri di 
carburante consumato e poi fare i relati¬ 
vi calcoli... Lire 30.000. 

AP18/N42 Regolatore del bip. Un 
programma per regolare a piacimento il 
volume del beep dell'Apple //e. Compa¬ 
ratore di grafici. Ecco come 
comparare le curve disegnate da 
funzioni diverse. Impaginatore di 
messaggi. Scritte perfettamente cen¬ 
trate sia sul video che sulla stampante, 
senza fatica. Utility per ProDOS. 
Prefix, Subdirectory, Pattinarne? Sono 
termini che bisogna conoscere per pro¬ 
grammare in ProDOS. Questa utility aiu¬ 
terà a capire e imparare con facilità. Li¬ 
re 30.000. 


APPLICANDO 19 

AP19/N43 Oracolo. Comperare una 
casa? Cambiare lavoro? Concludere o 
no quell'affare? Il primo programma di ti¬ 
po decision maker disponibile in Italia. 
Digger. A differenza dei giochi di labi¬ 
rinto di tipo tradizionale, Digger chiede 
di risolvere dei rompicapo spaziali, e la 
prontezza di riflessi non è tra i fattori 
del gioco... Claustrofobia. Questo 
gioco in alta risoluzione, pacifista nei ri¬ 
sultati, ma non nei metodi, mette alla 
prova l'abilità del giocatore. Ma atten¬ 
zione che non vi incastrino, perché sof¬ 
frite di claustrofobia... Gestione 
puntatori. Volete caricare in memoria 
un programma in Applesoft al di sopra 
di questo o quel codice in linguaggio 
macchina? Magari aggirando la memo¬ 
ria di schermo in alta risoluzione? O ad¬ 
dirittura in cima a un codice ormai servi¬ 
to al suo scopo in un programma che 
sta girando? Ò annullare un FP battuto 
per errore? Con questo programma, tut¬ 
to è possibile. Grafica in doppia ri¬ 
soluzione. Tre routine in Basic e una 
in Assembler che vi permetteranno di 


creare prorammi in doppia alta risoluzio¬ 
ne con 16 colori. Sei soluzioni. Il pro¬ 
gramma, proposto nell'ambito del Pro¬ 
getto Seraphim, è un test che consiste 
nel presentare allo studente quantità li¬ 
mitate di un certo numero di soluzioni in 
provette numerate. Lo studente cono¬ 
sce le sostanze presenti e deve, usan¬ 
do esclusivamente le soluzioni a dispo¬ 
sizione, identificare il contenuto di cia¬ 
scuna provetta. Lire 30.000. 


APPLICANDO 20 

AP20/N44 Salute. Vaccinazioni, ma¬ 
lattie, analisi, terapie e soprattutto co¬ 
sti a non finire. Come ricordare tutto, re¬ 
gistrare e listare le spese mediche di 
tutti i familiari? E al momento di pagare 
le tasse... Variabili. Con questa utility 
in Applesoft potrete visualizzare i 
valori delle variabili per un'efficace 
individuazione degli errori di un 
programma. Grafica. Che cosa sono 
le figure a blocco? Perché è importante 
farne la conoscenza? Per chi possiede 
l'Apple Ile o il Ile con scheda 80 colon¬ 
ne continua l'entusiasmante viaggio 
nel mondo dell'altissima risoluzione. Si¬ 
mulazione di un equilibrio. Un so¬ 
ftware didattico del progetto Seraphim 
che crea la simulazione al computer di 
un problema di equilibrio. Lire 30.000. 


Oroscopo AP20/N45 

Per tracciare una carta del cielo 
natale degna di un 
astrologo professionista. 

Per un'interpretazione 
veramente corretta. 


AP20/N45 Oroscopo. Scientificamen¬ 
te fondato, permette la creazione di u- 
na carta del cielo natale che nulla invi¬ 
dia ai grafici tracciati dai professionisti. 
E le tabelle con latitudini, longitudini, fu¬ 
si orari eccetera? Ci sono, ci sono... 
Voce. Ora non gli manca più la parola: 
con questa routine in linguaggio mac¬ 
china Apple//può finalmente pronuncia¬ 
re tutto quello che volete. L.30.000. 


APPLICANDO 21 

AP21/N46 Architetto. Un programma 
per studiare sul video la disposizione di 
mobili, porte, finestre e muri, spostan¬ 
doli a piacere, modificandone le dimen¬ 
sioni, duplicandoli, facendoli ruotare.. 
E poi, naturalmente, stampando il tut¬ 
to. Autocorsa. A tutta birra lungo una 
pista con vere e proprie voragini e mas¬ 
si da schivare. A ogni videata cambia 
la difficoltà del percorso, e la sosta ai 
box riserva qualche interessante sor¬ 
presa. By-pass per il dump. Una 
scorciatoia per accedere alla routine di 
stampa, e solo a quella, senza bisogno 
di attraversare prima tutto il program¬ 
ma: basta by-passarlo! Cursore. Per 
lo spostamento del cursore Apple// u- 
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sa gli ingombranti comandi HTAB e 
VTAB; è invece possibile utilizzare spe¬ 
ciali caratteri di controllo nelle stringhe 
stampate, grazie a questo programma 
in codice macchina. Grafica. Un altro 
passo avanti verso la perfetta padro¬ 
nanza della grafica in altissima risolu¬ 
zione: come animare sullo schermo le fi¬ 
gure a blocchi e come dare l'impressio¬ 
ne che scorrano dietro un altro ogget¬ 
to. Curve di titolazione. Interessa 
gli studenti (e gli insegnanti) di chimica 
questo programma del Progetto Sera- 
phim: inserite le debite variabili, e asse¬ 
gnato il nome all’acido che si sta stu¬ 
diando, traccia sul piano cartesiano la 
relativa curva di titolazione. Lire 
30.000. 


APPLICANDO 22 

AP22/N47 Impegni. Polizze che sca¬ 
dono, appuntamenti, anniversari e com¬ 
pleanni. Per avere sempre sotto gli oc¬ 
chi un promemoria elettronico, ecco un 
calendario intelligente. Azzardo. Il 
computer diventa mazziere di Blackja- 
ck, in una simulazione che ricalca fedel¬ 
mente il funzionamento delle slot machi¬ 
ne di Las Vegas. Effetti speciali. 
L'importanza di una gradevole presen¬ 
tazione non -va sottovalutata, quando 
si realizza un programma. Consente lo 
scorrimento orizzontale di una stringa, 
alla velocità voluta, per vivacizzare un 
menù, un titolo, oppure... Calenda¬ 
rio. Ecco un calendario perpetuo, per¬ 
fetto, veloce e sempre pronto. Grafi¬ 
ca. Creare intere immagini e figure a 
blocco sullo schermo Hi-Res, e poi ani¬ 
marle. Chimica. Il famoso numero di 
Avogadro e il concetto quantitativo di 
mole: la visualizzazione aiuta a spiegar¬ 
li e ad apprenderli meglio. Lire 30.000. 


APPLICANDO 23 

AP23/N48 Obelisk. Un game spazia¬ 
le, alla caccia di obelischi da distrugge¬ 
re, con singoli colpi o con una mega¬ 
esplosione. Programmare l'Apple- 
mouse. Come programmare sull'Apple 
in modo da utilizzare il mouse? In Apple¬ 
soft o in Assembler, ecco un aiuto pre¬ 
zioso per la programmazione e l'utilizzo 
dell'Applemouse. Più che diapositi¬ 
ve. Per realizzare presentazioni con il 
computer che siano qualcosa di più di 
un continuo scorrere di diapositive: l'ef¬ 
fetto “solid state”! Grafica. Program¬ 
ma dedicato alla doppia alta risoluzio¬ 
ne: scorrimento orizzontale di scritte e 
figure. Lire 30.000. 

AP23/A49 Trasferimento da Apple 
a Mac. Un programma eccezionale e 
nuovissimo: trasferire testi dall'Apple 
Ile e Ile al Macintosh è ora possibile e, 
quel che più conta, semplice e ultrasi¬ 
curo. La confezione comprende un 
dischetto da 3 pollici e mezzo e uno da 
5 pollici e un quarto. Lire 50.000. 

AP 23/N 50 Grafici 3D. Un programma 
che consente la realizzazione di grafici 


a tre dimensioni senza linee nascoste. 
Quale elemento? Un trivia di chimi¬ 
ca, per ripassare giocando i nomi e le 
caratteristiche di tutti gli elementi della 
tavola chimica. Le domande le fa lo stu¬ 
dente, e dalle risposte del computer de¬ 
ve ricavare la soluzione finale. Lire 
20 . 000 . 


APPLICANDO 24 

AP24/N51 Executive Card File. 

Uno schedario eccezionale per Apple 
//. E' strutturato in modo che le schede 
possano essere riposte in dieci racco¬ 
glitori: un' infinità di dati con la 
massima velocità di reperimento. 
Apple Maestro. Tutti compositori, 
con questo programma che insegna a 
creare musica in modo professionale, 
ma non per questo inaccessibile ai 
profani. Lire 35.000. 

AP24/N52 Dump 80 colonne. Un 
programma per ottenere la stampa 
della pagina schermo a ottanta 
colonne: proprio quello che finora non 
avreste potuto chiedere al vostro 
Apple. Date and time. Senza più 
dover ricorrere a costose schede 
aggiuntive, potete inserire nel vostro 
computer un calendario e, soprattutto, 
un orologio. Grafica. Con l'aggiunta 
delle routine per lo scorrimento 
verticale il mondo della grafica in 
doppia alta risoluzione non ha più 
difficoltà né segreti. Lire 30.000. 

AP24/N53 Prospettiva 3D. Questo 
programma è il seguito naturale di 
quello contenuto nel disco AP23/N50: 
come disegnare intere prospettive 
urbane, senza che il computer mostri i 
lati e le facce che devono rimanere 
nascosti. Test scolastici. Come 
crearsi un trivia "aperto", cioè non 
confinato a una sola materia e aperto a 
ogni intervento. Un modo nuovo e intel¬ 
ligente per ripassare (o giocare) inter¬ 
rogandosi. Lire 20.000. 


Utility DOS 3.3 
AP24/A55 

Il sistema operativo ormai 
non più fornito dalla Apple, 
indispensabile per copiare 
alcuni programmi di 
Applicando. Nello stesso 
dischetto sono comprese 4 
utility per la gestione dei file 
DOS. 


AP24/A55 Utility Dos 3.3. Questo 
dischetto consente a tutti coloro che 
hanno acquistato un Apple// dopo il 
maggio 1984 di avere a disposizione il 
sistema operativo Dos 3.3 indispen¬ 
sabile per ricopiare alcuni programmi 
presentati da Applicando. Insieme al 
sistema operativo vengono fornite 


quattro interessanti utility per la 
gestione dei file Dos. Il dischetto 
contiene tutte le informazioni 
necessarie. Lire 25.000. 


APPLICANDO 25 

AP25/N56 Chart Manager. Un pro¬ 
gramma professionale per la gestione 
dei dati, aziendali o familiari: ordina, cal¬ 
cola, modifica e poi traccia il grafico 
prescelto, a curve, a barre o a torta. In 
ogni sua fase consente il dump grafico 
dello schermo. Grafica. Quale logica 
è preposta all'alta risoluzione nell’Ap¬ 
ple? Queste routine in linguaggio mac¬ 
china consentono un buon approccio al 
problema attraverso la gestione delle fi¬ 
gure a blocchi. Lire 35.000. 


CHART MANAGER 
AP25/N56 

Un programma professionale 
per la gestione dei dati: 
ordina, calcola, modifica, 
poi traccia il grafico prescelto, 
a curve, a barre o a torta. 
Con tanto di stampa 



AP25/N57 Apple Checker. Un vero 
amico per chi copia da sé i programmi: 
controlla se sono stati commessi errori 
di battitura. Buffer di stampa. Spoo- 
ler è un programma che utilizza la sche¬ 
da language card nell'Apple 64 per "par¬ 
cheggiare" i dati; così mentre stampate 
potete continuare a lavorare sullo 
schermo del computer. Cinetica. Un 
interessante esperimento di laborato¬ 
rio: analizzate la variazione di velocità 
in funzione delle concentrazioni dei 
reattivi e della temperatura. L. 35.000. 

APPLICANDO 26 

AP26/N59 Ants. Un gioco ai confini del¬ 
la realtà, terrificante e divertente: gi¬ 
gantesche, spuntano dal vostro giardi¬ 
no delle omicide formiche"mutanti. File 
name mover. All'inizio l'Hello sta 
scritto al primo posto nel Catalog, ma 
poi si sposta... Per fare un po' di ordine 
nei nomi dei file questa utility è indi¬ 
spensabile. Sistemi di equazioni li¬ 
neari. Molti sono quasi impossibili da 
risolvere senza computer, per la loro in¬ 
terminabile complessità. Questo pro¬ 
gramma può affrontare fino a 70 equa¬ 
zioni, con fino a 70 variabili. E 
naturalmente stamparle. Lire 35.000. 
AP26/A60 Irpef (occorre VisiCalc). Il 
tempo delle tasse, oltre ai noti dolori, 
comporta perdite di tempo e disguidi: 
per compilare più in fretta la dichiarazio¬ 
ne, e tenersi aggiornati con le aliquote 
in corso, questo modello sfrutta la po¬ 
tenza del foglio elettronico. Lire 
25.000. 
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AP26/A61 Irpef (occorre Apple- 
Works). Lo stesso del precedente, ma 
in versione AppleWorks. Lire 25.000. 

AP26/N64 Certificatore di dischet¬ 
ti. Aprire una seconda tacca nel di¬ 
schetto per sfruttare anche la memoria 
della faccia posteriore? Con questo pro¬ 
gramma lo si può fare senza timori: con¬ 
trolla tutte le tracce e segna come già u- 
tilizzati i settori eventualmente difetto¬ 
si. Grafica. L'animazione di figure a 
blocchi si può gestire in più mod; ecco 
alcune routine chiave, interdipendenti. 
Lire 25.000. 


Il dominio di 
Meandro-AP26/A65 

Un adventure game tutto 
italiano, migliore perfino 
dei più famosi adventure 
d’importazione. Alla ricerca 
del Grande Segreto, nascosto 
oltre lo specchio e dentro la 
fantasia 


AP26/A65 II dominio di Meandro. 

Finalmente un adventure tutto italiano, 
che però non ha nulla da invidiare ai 
professionali d’importazione. Alla ricer¬ 
ca del Grande Segreto, nascosto oltre 
lo specchio e dentro la fantasia. Lire 
35.000. 


APPLICANDO 27 

AP27/N66 Chitarra. Un maestro ti in¬ 
segna gli accordi, mostrando sul video 
in bassa risoluzione chiarissime istru¬ 
zioni grafiche per la diteggiatura; una 
speciale routine, poi, controlla gli errori 
commessi. Crono. Relegato nel Tarta¬ 
ro aH'inizio dei tempi da Zeus, Crono ne 
emerge oggi e sferra un attacco morta¬ 
le per il potere universale... Armati del 
fulmine divino, dovete sconfiggerlo. Li¬ 
re 35.000. 



Nuova opportunità 
per i nostri , 

\ lettori M 



Abbonamento 
DISK SERVICE 


Applicando è lieto di offrire ai propri lettori la 
possibilità di sottoscrivere un abbonamento 
a 5 o 10 dischetti, a scelta fra quelli presentati nel 
Disk Service, a un prezzo super vantaggioso: 

120.000 lire per 5 dischetti Apple II 

200.000 lire per 10 dischetti Apple II 
175.000 lire per 5 dischetti Macintosh 
300.000 lire per 10 dischetti Macintosh 

Pagherete, rispettivamente, 24.000, 20.000, 35.000 
o 30.000 lire a dischetto, Iva e spese di spedizione 
comprese 

qualunque sia il prezzo di vendita 
del singolo dischetto. 

Basta che compiliate il tagliando qui sotto e lo 
inviate ad Applicando, abbonamenti Disk Service, 
Corso Monforte 39, 20122 Milano, unitamente a un 
assegno non trasferibile intestato a Editronica srl 
e al vostro primo ordine. 

Per ordinare i dischetti, adesso e in seguito 
utilizzate il buono d'ordine pubblicato alle pagine 
seguenti, specificando sempre che siete un 
abbonato del Disk Service. L'abbonamento non ha 
scadenza, quindi i 5 o 10 dischetti potete ordinarli 
quando più vi aggrada. 


AP27/N67 Reminder. Per tenere sot¬ 
to controllo la gestione domestica, ec¬ 
co un programma multiforme: è un ge¬ 
store prestiti, un custode delle scorte 
freeezer, un programmatore per l'orto, 
un'agenda delle incombenze e dei lavo¬ 
ri... Grafica. Tutte le immagini grafi¬ 
che, provenienti da qualsiasi program¬ 
ma, possono divenire tavole di figure a 
blocco. Con questo programma, poi, 
non occorre nemmeno conoscerne le 
coordinate. Postmaster. Può estire 
cento indirizzi, ordinarli in ordine alfabe¬ 
tico e modificarli quando serve, ma so¬ 
prattutto è un formidabile stampaeti- 
chette, per ogni stampante. Apple- 
trig. Seno e coseno, tangente e cotan¬ 
gente, secante e cosecante: tutte le 
funzioni trigonometriche a portata di 
mano. Lire 35.000. 



Sì, desidero sottoscrivere ii seguente 
abbonamento al Disk Service: 

□ 5 dischetti con programmi Apple II, per 120.000 lire 

□ 10 dischetti con programmi Apple II, per 200.000 lire 

□ 5 dischetti con programmi Macintosh, per 175.000 lire 

□ 10 dischetti con programmi Macintosh, per 300.000 lire 

Nome_____ 


Cognome___ 

Indirizzo___ 

Cap- Città-—_PV 


Data 


Firma 
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PROGRAMMI PER MACINTOSH 


AP23/A49 Trasferimento da Apple 
a Mac. Un programma eccezionale e 
nuovissimo: trasferire testi dall'Apple 
Ile e Ile al Macintosh è ora possibile e, 
quel che più conta, semplice e ultrasi¬ 
curo. La confezione comprende un 
dischetto da 3 pollici e mezzo e uno da 
5 pollici e un quarto. Lire 50.000. 


MacGraph 

AP24/N54 

Con questo programma, 
altamente professionale, 
potete creare ogni tipo di 
grafico: a linee, a barre, a 
torta. Poi potrete trasferirlo 
in una relazione, una ricerca, 
un documento da 
proiettare... 


AP24/N54 MacGraph. Un programma 
favoloso per un uso professionale del 
Macintosh: può creare ogni tipo di gra¬ 
fico, a linee, a barre o a torta, che poi si 


può copiare e incollare in qualunque 
altro documento (relazioni, documenti 
da proiettare...). Lire 40.000. 

A P 25/N58 File Cabinet. Potenza e 
versatilità caratterizzano il database 
per Macintosh: strutturato come uno 
schedario, permette un'archiviazione e 
una gestione dati molto agile e intelli- 

Bioritmi 

AP26/A62 

Le famose curve 
fisico-emotive-intellettive 
mese per mese per voi o i 
vostri amici. Perché Mac è 
un computer serio, ma a 
volte anche ...brioso. 


gente. I criteri di classificazione, multi¬ 
pli, consentono la massima personaliz¬ 
zazione. Lire 40.000. 

AP26/A62 Bioritmi. Un programma 
brioso, ma professionale nell'imposta¬ 
zione e nella grafica. Allietato dal dise¬ 


gno dei simboli zodiacali, traccia le tre 
famose curve fisico-emotivo-intelletti- 
ve mese per mese, fa i confronti e dà il 
consiglio del giorno. Lire 40.000. 

AP26/A63 Irpef (occorre Multiplan). Il 
tempo delle tasse, oltre ai noti dolori, 
comporta perdite di tempo e disguidi: 
per compilare più in fretta la dichiarazio¬ 
ne, e tenersi aggiornati con le aliquote 
in corso, questo modello sfrutta la po¬ 
tenza del foglio elettronico. Lire 
25.000. 

AP27/A68 Leasing (occorre Multi¬ 
plan). Conti alla mano, qual è il tasso 
reale che vi tocca pagare? La conve¬ 
nienza di ogni contratto di leasing con¬ 
teggiata su misura grazie a una applica¬ 
zione di matematica finanziaria sofisti¬ 
cata, ma semplice da usare. Lire 
30.000. 

AP27/N69 MacBanker. Un program¬ 
ma realmente all’avanguardia, che con¬ 
sente la stampa degli assegni su modu¬ 
lo continuo. Ma non solo: tutta la ge¬ 
stione del vostro conto in banca, con 
verifica puntuale degli estratti conto 
che vi vengono inviati, con registrazio¬ 
ne accurata di ogni vostro versamento 
e di ogni assegno che emettete, è affi¬ 
data a MacBanker. Lire 40.000. 




Compilare e spedire il tagliando qui sotto a Applicando , Editronica srl, Corso Monforte 39, 20122 Milano 
Vogliate inviarmi i seguenti dischetti: 

Cognome.Nome. 

Via.CAP. 

Città.Prov. 

Scelgo la seguente formula di pagamento: 

CD allego assegno di L. non trasferibile intestato a Editronica Srl. 
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Sono abbonato al Disk Service: sì □ noD 


CD allego ricevuta di versamento di L..sul cc/p n. 19740208 

intestato a Editronica srl, C.so Monforte 39, 20122 Milano. 

□ pago fin d'ora l'importo di L.. con la mia carta di credito 

Bankamericard N.scadenza. 

autorizzando la Banca d'America e d'Italia ad addebitarne rimporto sul mio conto. 


Data.Firma . 











































Abbiamo già venduto 2 milioni di 
High Precision Data Memories. 



E siamo solo agii inizi. 


High Precision che, trattandosi di un di¬ 
schetto flessibile, dice tutto. 

Precisione per HP Data Memories è il 
risultato di una tecnologia avanzatissi¬ 
ma che si avvale delle ultime novità in 
fatto di materie prime, formulazione 
magnetica, costruzione e sistemi di 
confezione. 

Non c’è da stupirsi, se pensiamo che 
questo marchio di successo ha dietro di 
sè tutta l’esperienza commerciale e tec¬ 
nologica di un’azienda come la MEE. 
HP Data Memories unisce eccezionali 


caratteristiche di chiarezza del segna¬ 
le, alta resistenza del substrato in po¬ 
liestere, lunga durata. 

I numerosissimi test cui viene sottopo¬ 
sto durante il ciclo di fabbricazione ne 
garantiscono prestazioni molto superio¬ 
ri a quelle dettate dai normali standards 
quantitativi. 

Preciso, resistente, affidabile anche 
nelle situazioni più critiche, il dischet¬ 
to HP Data Memories - 
prodotto nei formati 8”, 

5 1/4”, 3 1/2" - è certi¬ 
ficato 100% error free 


secondo le norme ANSI, ECMA, ISO, 
JIS, IBM, SHUGART. 

Del resto'che sia un prodotto di primis¬ 
sima qualità è dimostrato dalla sua in¬ 
credibile diffusione, ben 2.000.000 di 
pezzi venduti in pochissimo tempo. 
Un "dischetto d’oro” in piena regola 
che ha tutte le intenzioni di continuare 
su questa strada fino ad un prossimo 
ancora più ambizioso traguardo. 



s.p.a. -20144 Mitano-Via Boni, 29*. 

t. 02/4988541-telex324426MEE-ttatia 


MEE 

Parliamone insieme. 
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Chiunque abbia dimestichezza con il Macintosh sa perfettamente che Microsoft Word è di gran lunga il miglior 
programma di elaborazione testi disponibile. 

Non è necessario, per apprezzare la potenza di Word, essere un romanziere alle prese con una storia di 400 pagine è 
sufficiente non voler investire il proprio tempo su programmi meno efficienti e, oltretutto, più complicati da usare.l 
Basta lavorare su più documenti contemporaneamente, componendo ad esempio una relazione con parti di altre £ à 
scritte in precedenza, oppure inviare una lettera circolare, combinando il testo con la lista degli indirizzi, o gestire, c n 
una gamma impareggiabile di possibilità, una stampante laser. 

Per non parlare della possibilità di crearsi un Glossario, cioè un archivio di parole o frasi di uso ripetitivo, da richiami ’e 
con un solo tasto. 

Queste caratteristiche, e molte altre ancora, come la sua sorprendente semplicità di uso, fanno di Word la scelta fier 
eccellenza per chi sappia di volere il meglio, e non esiti di fronte ad esso. 

Microsoft Word è disponibile presso tutti gli Apple Centers ed i Distributori Autorizzati Microsoft. 


Potenza e semplicità. Insieme. 

MIC ROSOFT S.p.A. - 20093 Cologno M s . € (MI) - Via Michelangelo, 1 
lei. (02) 2549741 r.a. - fax (02) 2549745 




